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ABSTRACT 


The  computer  program,  LOCAT,  a  data  retrieval  package  for  the 
SARSAT  Evaluation  Facility  database,  is  described  for  use  on  an  HP-1000 
computer.  The  program  provides  the  user  with  flexibility  over  what  data  is 
to  be  retrieved  from  the  database.  The  following  input  options  are 
available: 


-  satellite(s) 

-  frequency (s) 

-  location  and  radius 

-  date  range 

The  data  retrieved  is  presented  in  the  form  of  four  outputs,  each  of  which 
provides  different  information. 

LOCAT  is  documented  in  terms  of  a  brief  description  of  the 
package,  its  capabilities,  a  guide  on  how  to  use  it,  and  how  to  compile  and 
load  it.  The  source  code  for  the  routines  written  is  provided  in  the 
Appendices. 


RESUME 


Le  present  resume  decrit  le  programme  de  base  de  donnees  LOCAT 
utilise  conjointement  avec  l'ordinateur  HP-1000  pour  traiter  les  donnees 
recueillies  pendant  la  phase  devaluation  du  systeme  SARSAT.  Ce  programme 
donne  a  l'usager  toute  la  souplesse  voulue  pour  recouvrer  les  donnees  dont 
il  a  besoin.  Ainsi,  celles-ci  peuvent  etre  rappelees  d'apres  les 
parametres  suivants: 

-  satellite(s) 

-  frequence(s) 

-  lieu  et  rayon 

-  etendue  dans  le  temps 

L'usager  a  egalement  la  possibility  de  choisir  parmi  quatre  modes  de 
presentation  differents. 

Le  resume  comporte  une  breve  description  du  programme  LOCAT  et  de 
ses  possibility,  le  mode  d'emploi  ainsi  que  le  protocole  de  compilation  et 
de  chargement.  Le  code  source  est  fourni  en  annexe. 
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1.0  INTRODUCTION 


"LOCAT  is  a  program  used  to  facilitate  the  retrieval  of  data  from 
the  SARSAT  Evaluation  Facility  (SEF)  database.  It  is  written  using  FORTRAN 
4X  and  IMAGE/1000,  and  is  intended  to  be  used  on  an  HP-1000  computer  with  a 
RTE  IVB  operating  system. 

The  SEF  database  was  established  to  process  Canadian  SARSAT 
evaluation  data  collected  from  various  sources  including  the_£ARSAT  Local 
User  Terminal  (LUT),  the  Canadian  Mission  Control  -Centre ^(CMCC )  located  at 
CFB  Trenton  and  the  Rescue  Coordination  Centred  (RCCp located  across 
Canada.  Because  of  limitations  in  the  SEF  software,  which  was  developed 
under  contract,  and  in  order  to  address  specific  evaluation  requirements, 
it  was  necessary  to  build  a  package  of  software  routines  to  support  SARSAT 
studies.  LOCAT  was  the  first  of  a  series  of  analytical  software  programs 
to  meet  these  requirements. 

This  report  documents  the  program  LOCAT  in  terms  of  the  program 
overview  which  summarizes  the  data  retrieval  criteria  and  the  output  files 
produced,  a  user's  guide  which  provides  instructions  on  how  to  run  the 
program,  and  finally,  information  on  compiling  and  loading  the  program  in 
the  SEF  operating  environment.  Appendix  A  contains  a  sample  run  and 
Appendix  B  documents  the  LOCAT  source  code. 

J 


2.0  PROGRAM  OVERVIEW 


v 

The  SEF  database  is  a  time  ordered  structure  containing  SARSAT 
.evaluation  data  from  a  variety  of  sources.  During  operations,  SARSAT 
facilities  detect  transmissions  from  Emergency  Locator  Transmitters  (ELTs) 
or  their  marine  equivalent,  the  Emergency  Position  Indicating  Radio  Beacon 
(EPIRB),  which  may  have  been  activated  because  of  an  air  or  marine  distress 
incident.  The  SARSAT  facilities,  specifically  the  ground  tracking 
stations,'  through  Doppler  processing,  derive  an  estimate  location  of  the 
beacon  which  could  be  transmitting  at  121.5  and/or  243  MHz  or  406  MHz. 
These  data  are  then  passed  on  to  the  operational  Search  and  Rescue 
community  for  actioning.  During  each  step  of  this  sequence  of  events,  data 


is  collected  in  order  to  evaluate  SARSAT  performance.  Evaluation  data 
consists  of  the  estimated  locations,  technical  signal  processing  parameters 
developed  as  a  result  of  the  Doppler  process,  and  operational  SAR  data. 

The  LOCAT  program  provides  the  convenient  capability  to  retrieve 
SARSAT  data  -  which  could  cover  a  period  of  up  to  six  months  -  in  terms  of: 

-  Time  or  time  interval  of  interest; 

-  Satellite  or  combination  of  satellites  used; 

-  Location  of  interest; 

-  Beacon  frequency. 

The  program  output  consists  of  data  files  available  for 
subsequent  processing,  or  data  listing.  The  level  of  parameter  detail  on 
output  is  under  user  control. 

The  LOCAT  design  makes  use  of  the  soft  key  facilities  provided  by 
the  HP  2648A  graphics  terminal.  This  design  philosophy  is  described  and 
then  the  soft  key  displays  are  discussed.  As  noted  previously,  the  level 
of  output  is  under  user  control.  The  content  of  the  output  data  files  are 
defined. 


2.1  DESIGN  PHILOSOPHY 


The  LOCAT  program  was  designed  to  enable  the  retrieval  of  data 
according  to  user  specified  criteria  and  to  be  as  self-explanatory  as 
possible  for  ease  of  use.  The  program  is  modular  in  structure  for  ease  of 
modification.  Figure  1  illustrates  the  calling  sequence  hierarchy. 


Figure  1:  LOCAT  -  Calling  Sequence. 
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The  functions  of  each  of  these  routines  is  as  follows: 


.  LOCAT 

•  SESET 

•  OUTDT 
.  ALOCS 
.  OUTPT 
.  FREQ 

.  PR I MR 

•  SECOY 
.  TERTI 
.  QUADY 


main  line  program,  request  SAT/LOC  data  definition. 

requests  query  time  definition  and  logical  unit  for 

the  output  destination. 

requests  output  definition. 

interrogates  database,  gets  the  data  for  output. 

produces  the  output  listings. 

requests  frequency  definition. 

gets  the  data  for  the  primary  output. 

gets  the  data  for  the  second  output. 

gets  the  data  for  the  third  output. 

gets  the  data  for  the  fourth  output. 


The  HP  2648A  terminal  soft  keys  have  been  used  extensively  in  the 
program  in  order  to  avoid  the  situation  of  the  user  having  to  answer  a 
multitude  of  questions  to  determine  the  retrieval  criteria. 


When  a  new  set  of  soft  keys  is  displayed,  a  prompt  appears  on  the 
console  requesting  the  user  to  specify  the  choice  of  the  presently 
displayed  retrieval  criteria.  This  is  done  by  pressing  the  soft  key 
corresponding  to  the  user's  choice.  An  will  appear  on  the  screen 
beside  the  displayed  soft  key  to  indicate  that  the  key  was  pressed.  At 
this  stage  the  query  can  be  changed.  This  is  done  by  simply  pressing  the 
soft  key  again.  The  '*'  disappears  indicating  that  the  choice  has  been 
discarded. 


2.2  SATELLITE  AND  LOCATION  SOFT  KEY  DISPLAY 


The  soft  keys  that  are  displayed  to  allow  the  user  to  choose  the 
desired  satellite(s)  and  location  are  illustrated  in  Figure  2.  Should  none 
of  the  soft  keys  be  selected,  the  default  values  are  lYaH"  satellites  and 
"all"  locations. 


SPECIFIC 

A  LOCATION 

Cx  j  Sx  j 

SATPAS 

i  j 

i  END  OF 

i  i  r  : 

i  I  i  EXIT 

SELECT 

j  i  j  i 

Figure  2:  SAT/LOC  Soft  Key  Display 


Should  data  be  required  for  a  specific  satellite(s),  the  SPECIFIC 
SAT  soft  key  is  pressed.  Once  the  display  prompting  for  satellite  data  is 
obtained,  the  user  inputs  the  desired  satellite  name  in  the  form  SI,  Cl, 
etc.  A  maximum  of  five  satellites  can  be  entered,  with  each  name  separated 
by  a  comma  or  space. 

If  the  query  involves  obtaining  data  within  a  certain  radius  of  a 
specified  location,  the  LOCATION  soft  key  is  pressed.  The  user  is  then 
prompted  to  enter  the  longitude,  latitude  of  the  location,  the  radius 
desired,  and  the  region  and  case  number  of  this  location.  If  this  latter 
information  is  not  available,  the  carriage  return  is  pressed. 

If  data  is  desired  for  only  the  COSPAS  satellites,  utilize  the  Cx 
soft  key.  Data  for  all  the  COSPAS  satellites  will  then  be  retrieved. 

Similarly,  pressing  the  Sx  soft  key  causes  the  data  for  all  the 
SARSAT  satellites  to  be  retrieved. 


Data  for  a  specific  satellite  pass  can  be  retrieved  by  pressing 
the  SATPAS  key.  The  user  is  then  prompted  to  input  the  specific  satellite 
pass  number. 


To  indicate  to 

the 

program  that  the  user  is  finished 

with  the 

present  selection, 
continues  on. 

the 

END 

OF  SELECT 

key 

is  pressed  and 

the 

program 

The  EXIT 

key, 

available  with 

each 

display,  allows 

the 

user  to 

exit  the  program. 


2.3  FREQUENCY  SOFT  KEY  DISPLAY 


The  soft  keys  that  are  displayed  to  allow  the  user  specification 
of  the  desired  frequency  are  illustrated  in  Figure  3. 
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Figure  3:  Frequency  Soft  Key  Display 
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The  soft  key  definitions  are: 

•  406  Bent  Pipe  -  unprocessed  406  MHz  data  from  the  Search  and 

Rescue  repeater. 

•  406  Real  Time  -  406  MHz  data  that  is  processed  onboard  the 

satellite  and  provided  to  the  LUT  on  the  2.4 
kilobit  downlink. 

•  406  COSPAS  -  stored  memory  dump  406  MHz  data  from  the 

satellite. 

•  CBC121  -  121.5  MHz  data. 

•  CBC243  -  243  MHz  data. 

•  All  Frequencies  -  data  at  all  frequencies  are  retrieved. 

Only  the  following  combinations  of  frequencies  are  permissible: 

-  all  frequencies; 

-  406  Bent  Pipe; 

-  406  Real  Time; 

-  406  COSPAS; 

-  CBC121 ; 

-  CBC243 ; 

-  CBC121  and  CBC243. 


2.4  OUTPUT  SOFT  KEY  DISPLAY 


The  soft  keys  that  are  displayed  to  allow  user  specification  of 
the  desired  output  are  illustrated  in  Figure  4.  There  is  a  choice  of  four 
different  outputs  available,  each  retrieving  different  data  from  the 
database.  Any  combination  of  these  outputs  is  permissible.  The  definition 
of  these  various  outputs  are  given  in  subsequent  sections. 


PRIMARY 

i  [ 

I  SECOND  i 

i  r 

i  THIRD  i 

FOURTH  | 

|  OUTPUT 
_ 

j  OUTPUT  j 

i  i 

1  OUTPUT  | 

!  OUTPUT  i 

i 

' - f  i - r - T  1 - 

i  TAPE  i  |  END  OF  ,  j  IMAGE  ■  EXIT 

I  i  i  SELECT  ■  !  DATA  , 


Figure  4:  Output  Soft  Key  Display. 


The  data  files  produced  by  the  program  can  be  utilized  in 
subsequent  processing  by  pressing  the  TAPE  soft  key.  This  causes  the  disc 
f i 1 e { s )  to  be  stored  onto  magnetic  tape. 

Each  ELT  location  calculated  by  the  LUT  also  has  a  Doppler  image 
solution.  LOCAT  normally  retrieves  data  for  the  true  ELT  location.  The 
IMAGE  DATA  soft  key  enables  the  retrieval  of  data  for  the  image  solutions 
as  well  as  for  the  true  solutions. 


2.4.1  Primary  Output  File 


The  primary  output  file  option  displays  data  with  the  following 

header: 


PRIMARY  SECONDARY 

DATA  SATPAS  MCCREF  EVENT  MESSNT  LAT  LONG  LAT  LONG  DIFF  DLAT  DLONG 
LOCATION  LATITUDE  -  45.0000  LONGITUDE  -  75.0000  RADIUS  -  100.0 

The  output  data  definition  is  as  follows: 

DATE  -  year,  month,  day  of  acquisition  of  signal. 

SATPAS  -  satellite  -Identification  and  pass  number. 

MCCREF  -  the  CMCC  reference  number. 

EVENT  -  the  LUT  assigned  reference  number. 

MESSNT  -  flag  indicating  whether  the  ELT  data  was  sent  via  an  alert 
message  to  the  CMCC  (=0,no  =l,yes). 

LAT  -  calculated  latitude  of  ELT  location  expressed  in  degrees. 

LONG  -  calculated  longitude  of  ELT  location  expressed  in  degrees. 

SECONDARY  LAT,  LONG  -  calculated  latitude  and  longitude  of  the  image  ELT 
location  expressed  in  degrees. 

DIFF  -  the  distance  in  kilometres  between  the  primary  LAT  and  LONG  and 
the  user  specified  latitude  and  longitude. 

DLAT  -  the  distance  in  kilometres  between  the  primary  LAT  and  user 
specified  latitude. 

-  the  distance  in  kilometres  between  the  primary  LONG  and  the  user 
specified  longitude. 


DLONG 
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LOCATION  LATITUDE,  LONGITUDE  AND  RADIUS  -  all  retrieved  data  are  to  be 
within  the  radius  of  this  location.  If  the  user  does  not  specify 
a  location  and  radius,  DIFF,  DLAT,  DLONG  and  the  location 
latitude,  longitude  and  radius  are  displayed  as  zero. 


2.4.2  Second  Output  File 

Depending  on  the  frequency  chosen  for  the  data  to  be  retrieved, 
121.5/243  or  406  MHz,  two  different  outputs  are  displayed  for  this  output 
option. 

The  following  output  describes  121.5/243  MHz  data. 

SECOND  OUTPUT 
PRIMARY  LOCATION 

CTA  POINTS  SDEV  TREND  QUAL  PROB  NMWLS  TCA  QTIME  LOSTIM  BIAS  CORR  SCORE 

PRIMARY  LOCATION  -  indicates  that  all  the  data  in  the  second  output  file  is 
for  the  primary  location  found  in  the  primary  output  file. 

CTA  -  cross  track  angle  in  degrees. 

POINTS  -  number  of  frequency  measurements. 

SDEV  -  standard  deviation  of  residuals  in  Hz. 

TREND  -  trend  factor  of  residuals  in  Hz. 

QUAL  -  quality  factor  of  CBC  data  (sum  amps). 

PROB  -  probability  of  true  solution,  as  a  percentage. 

NMWLS  -  number  of  WLS  iterations. 

TCA  -  time  of  closest  approach,  in  hours  from  the  date  of  acquisition 

of  signal  (AOS). 

QTIME  -  time  of  AOS  in  hours  from  midnight  of  the  DATE. 

LOSTIM  -  date  of  loss  of  signal  (LOS),  in  hours  from  date  of  AOS. 

BIAS  -  ELT  frequency  bias,  expressed  in  Hz. 

CORR  SCORE  -  ELT  identifier  consisting  of  four  ASCII  blanks  and  a  real 
correlation  score. 


The  following  output  describes  406  MHz  data.  Only  the  headings 
that  are  different  from  the  previous  description  will  be  expanded  upon. 
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SECOND  OUTPUT 


PRIMARY  LOCATION 

CTA  POINTS  SDEV  TREND  ELTANG  PROB  NMWLS  TCA  QTIME  LOSTIM  BIAS  ELT  ID 

ELTANG  -  elevation  angle  between  the  ELT  and  the  satellite. 

ELT  ID  -  ELT  identifier  stating  the  country,  user  and  beacon 

identification  code. 


2.4.3  Thi rd  Output  File 


THIRD  OUTPUT 
PRIMARY  LOCATION 

DRIFT  CTAI  TCAI  MAJAX  MINAX  AMEAN  BIASI 

PRIMARY  LOCATION  -  indicates  that  all  the  data  in  the  third  output  file  is 
for  the  primary  location  found  in  the  primary  output  file. 


DRIFT  -  ELT  frequency  drift,  in  Hz/min. 

CTAI  -  initial  estimate  of  CTA  in  degrees. 

TCAI  -  initial  estimate  of  TCA  in  seconds. 

MAJAX  -  major  axis  of  error  ellipse,  in  km. 

MINAX  -  minor  axis  of  error  ellipse,  in  km. 

AMEAN  -  average  of  data  residuals  in  Hz. 

BIASI  -  initial  estimate  of  BIAS  in  Hz. 

2.4.4  Fourth  Output  File 

FOURTH  OUTPUT 
PRIMARY  LOCATION 

VARCTA  VARTCA  VARBIA  VARDI  CORCT  CORCB  CORCD  CORTB  CORTD  CORBD 

PRIMARY  LOCATION  -  indicates  that  all  the  data  in  the  fourth  output  file  is 
for  the  primary  location  found  in  the  primary  output  file. 
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C  fieri  f  '►»  f«i"  M'c«t  file  i*  to  be  out  on  tice 

;f  f o jb tw  t Hf e 

1-mi 

iWFi  1‘fv’ue1 

:lUFt(t*3l=?HM, 

:  =  !»« 

CnCIF 

EnDIF 

C  'efeinote  fhe  file  oelection  yith  >  /E  in  the  buffer 

lBUf 1< I )«2M/E 
JWttl) 

C  tend  the  tronsfer  file  connond  to  be  ooerotina  tysten 

CALL  EXEC(14,2,IBUF1 . J) 

EMDIF 

WRITE! 14 , 1  111 IPOSN.LOCLAJ .LOCLNG.RADIUS, REGION, CASE NO 
END  IF 

C 
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CLOSE! 30) 

read  the  IUTELF  records  end  deternine  if  they  neet  the  desired  criteria 
CALL  ALOCS 

CALL  EXEC(?.6HALOCS  > 

WRITEtLU.iOll) 

READ(LU,lll2) ANSWER 


OPEN ( 30 , F ILC* ' SCRATCH '.STATUS* ' OLD ' ) 

READ(30.1023)POSN, START 

1023  FORMAT (15. IX, 15) 

CLOSE (30) 

C 

IF  ( (POSN  -  START)  NE  0)  FOUND  *  TRUE. 

C 

IF  (ANSWER  .Ed.  2HY  )  SO  TO  5 

C 

IF  (FOUND)  CALL  0UTP2 

IF  (FOUND)  CALL  OUTDT 

C 

C  store  the  output  Files  onto  tope  if  desired 

C 

IF  (FOUND)  THEN 

IF  (TAPE)  THEN 

1=7 

I8UF1(I)=2HHE 

I8UF1(I+1)=2HAD 

IBUF1(I+2)=2HR, 

1  =  1+3 

C  check  if  the  prinare  output  file  is  to  be  sot  on  tone 

IF  (PRIN)  THEN 
I8UFI(I)=2HPR 
IBUFl(l+l)=2HIN 
IBUFKI+2)=2HAR 
IBUF1(I+3)=2HT, 

1  =  1+4 
ENDIF 

C  check  if  the  second  ootoot  file  is  to  be  net  on  tone 

IF  (SECOND)  THEN 
IBUFKI>=2HSE 
IBUFK  I  +  l)=2HC0 
IBUF1(I+2)=2HND 
I BUFl ( I +3)=2H , 

1*1+4 

ENDIF 

C  check  if  the  third  oetpst  file  is  to  be  pet  on  tope 

IF  (THIRD)  THEN 
IBUF1(I)=2HTH 
IBUFl(I+l)=2HIR 
IBUF1(I+2)*2HD, 

1*1+3 

ENDIF 

C  check  if  the  fourth  oetpet  file  is  to  be  pet  on  tape 

IF  (FOURTH)  THEN 
IBIIFK  I )  =2HF O 
IBUFl(I+l)=2HUR 
IBUF1(I+2)*2HTH 
IBUFK  I+3)=2H, 

1  =  1+4 
ENDIF 

IF  ( I MACE)  THEN 

C  check  if  the  prinory  oetpet  file  is  te  be  put  on  tope 

IF  (PRIM)  THEN 
IBUFK  I  )=2HIP 
IBUF1(1+1)*2HRI 
IBUF1(]+2)*2HMA 
IBUFK  I+3)=2HRT 
IBUFKI+4)*2H, 

1=1+5 

ENDIF 

C  check  if  the  second  oetpet  file  is  to  be  pet  on  tope 

IF  (SECOND)  THEN 
IBUFK  I  )=2HIS 
IBUF1(I+1)=2HEC 
IBUFi ( I+2)=2HON 
IBUFK  I+3)*2HD, 

1  =  1+4 
ENDIF 

C  check  if  the  third  oetpet  file  is  to  be  put  on  tope 

IF  (THIRD)  THEN 
IBUF1(I)=2HIT 
IP1IFKI  +  1)=2HHI 
IBUFK  I+2)=2HRD 
IBUFl(I+3)*2H, 


c 

c 

c 


clear  the  't'  frte  the  lelect  array 


C 


EXECUTABLE  CODE 


1 


ciuimmiwuuumwununmiliimuiimmmuiimtim 

c 

LU=1 

DO  1  1=1,5 
IBASEI I  )*2H 
NRITEILU, 1115) 

READTLU.  iaibXIBASC(I)  .1=1 ,5) 

1SYS  •  LOCLU(STS) 

POSN  *  1 
FOUND  •  FALSE . 

EXIT  *  FALSE 
TATE  *  FUSE 
IECION  •  2H 
CASENO  *  I 
PLAFE-t 


lnitulne  tirubles 


CONTINUE 


ALLUT«  TRUE 
ALSAT*  TRUE 
SAT*  FALSE. 

CX*  FALSE 
SX=  FALSE 
SPECIF*  FALSE. 


UNIT  *  99 


LUT 
HCC  * 
SAR  * 
TEST* 
ALL  = 
LOCLAT 


LOCLNC 

RADIUS 


FALSE 
FALSE. 
FALSE 
FALSE 
FALSE 
•  I 


0  0 

It 


qet  ither  input  tiritbles 


CALL  SESET(UNIT.RET) 

IF  (RET  NE.  I)  GO  TO  999 


sejrch  files  specified 


111 


111 


CONTINUE 

CALL  FUNKY  (KEYS, PRIM) 

MITE  (LU.1I03) 

CALL  REI0(l.LU.RK,-2) 

RK  *  RK  -2HF0 

IF  (RK  LT  1  OR  RK  GT.  8)  GO  TO  111 
IF  (RK  EO  8)  THEN 
EXIT*  TRUE . 

GO  TO  911 
END  IF 

IF  (RK  ED  7)  GO  TO  111 


set  I  in  key  selected  And  check  Fir  farther  selects 


IF  (KEYS(l.RK) 
KEYS(l.RK) 


IF  (RK 
IF  (RK 
IF  (RK  .1 
IF  (RK  I 
IF  (RK  .1 
GO  TO  it; 
ENDIF 


EO  2H  )  THEN 

*  2H* 

1)  SAT  =  TRUE. 

2)  ALLUT  *  FALSE. 
J)  CX  *  TRUE. 

I)  SX  *  TRUE 
5)  SPECIF  *  TRUE. 


IF  (KEYS(l.RK)  EO.  2H*  )  THEN 
KEYS! { , RK )  *  2H 
IF  (RK  EO 
EO 
EO. 


IF  (RK 
IF  (RK 
IF  IRK 
IF  (RK 
ENDIF 


1)  SAT  *  FALSE 

2)  ALLUT  *  TRUE. 

3)  CX  =  FALSE. 

II  SX  =  FALSE. 

5)  SPECIF  *  FALSE 


IF  (  NOT  (SAT  AND.  CX  AND  SXU  ALSAT*.TRUE. 


112 


CALL  FUHKYIKEYSI 1 ,RX ) ,RK) 
IF  (RX  EO.  b>  CO  TO  211 
GO  TO  111 


211  CONTINUE 


nnnnnn 
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REAL  LOCLAT,  LOCING,  RADIUS 

InrHiJ  '  },u?!!d;  specified  location 
LOCLNG  -  lane i tide  af  specified  lacatian 
RADIUS  -  nimir  distance  between  specified  lacatian  and 
file  lacatians 

COMMON  /LOCN/  LOCLAT,  LOCLNG,  RADIUS 

INTEGER  18ASEIS),  ILEVLI3).  IMODE.  ISTAT(U),  LIST 
INTEGER  ITDTEI3),  ITTST(3).  ITSARlS),  ITNCC(J),  ITSPD<3) 
INTEGER  IDLUT (3) ,  IDTST(3),  IDSAR(3),  IDMCC(3) 

INTEGER  SBUFI&8),  LBUFI98),  M8UFI74),  FBUF(SI) 

COMMON  /BASE/  I BASE.  ILEVL,  IMODE.  ISTAT.  LIST.  ITDTE, 

ITTST,  ITSAR,  ITNCC,  ITSPD.  IDLUT.  IDMCC. 
IDSAR,  IDTST ,  SBUF,  LBUF.  HBUF,  FBUF 

DOUBLE  PRECISION  QTIME,  SDT 

SDT  -  start  date 


LODAT  -  ascii  start  date  TTMMDD 
STDAT  -  law  date  in  secands  fren  1981 
ENDAT  -  hinh  date  in  secands  fret!  1781 

OUTLU  -  aeteet  deaice,  LU  ar  filename 

INTEGER  RBUFIAB),  1PARMI5).  PBUFI33) 

INTEGER  LU,  RET 
INTEGER  SYS,  ISYS,  LOGLU 

RBUF  -  receiving  baffer 

IPARN  -  return  baffer  far  RNPAR  call 

PBUF  -  retire  baffer  fran  PARSE 

REAL  ONEDAY 

INTEGER  DATCHI3),  LOOP.  DUMI7) .  11 
INTEGER  UNIT 


LOGICAL  LUT.  MCC,  SAR.  TEST.  ALL 

LUT  -  fla«  ta  indicate  LUT  lacatian  detail  file  selected 

MCC  -  flaq  ta  indicate  MCC  lacatian  detail  file  selected 

SAR  -  flan  ta  Indicate  SARSTAT  incident  detail  file  selected 

TEST  -  flag  ta  indicate  FIELD  test  naster  file  selectedlected 

ALL  -  all  files  will  be  searched 


INTEGER  XEYSIB.8) ,  PRONIB).  RK 
INTEGER  FLG,  aA,  JfBRK 


FLG 


-  flag  ta  indicate  if  /E  ased 

-  daiwi*  paraneter  far  IFBR* 


COHMON/SELCT/ALLUT.ALSAT.SAT.SX.CX .SPESAT .PRIM .SECOND, THIRD. 

I  FOURTH. PST, 4ST.TSt.FST. UNIT. DIF. BENT. REAL! .COS* .CBCli, 

1  CBCZA . ALLFR . POSN , STAR  T . EX IT . TAPE , SPECIF .SEVENT , PASS , 

1  IHAGE.CONTRY . I USER , TYPE .ELTANG 

INTEGER  C0NTRYI3) .IUSER.TYPEI4) 

REAL  ELTANG 

LOGICAL  ALLUT.ALSAT. SAT. SX.CX.PRIN. SECOND, THIRD, FOURTH, SPECIF 
LOGICAL  BENT, REAL! .C0S4.CBC12.CBC2MLLFR, FOUND, EXIT, TAPE 
LOGICAL  IMAGE 

INTEGER  SPESATI5) .1 .PST.SST .TST.FST .POSH.START .ANSWER 
INTEGER  IBUF1I7I)  ,J,SEV£nT, PASSU) , REGION, CASEliO 
INTEGER  PLACE 
REAL  DIF 

ALLUT  -flag  ta  indicate  if  all  lacatians  wanted 

ALSAT  -flag  ta  indicate  if  all  satellites  wanted 

SAT  -flan  ta  indicate  if  specific  satellites  wanted 

SX  -flag  ta  indicate  if  all  SARSAT  satellites  wanted 

CX  -flag  ta  indicate  if  all  COSPAS  satellites  wanted 

SPESAT-arraa  that  cantains  the  specific  satellites  desired 


DATA  XEYS  /' 


Specific  SAT 
Ci 

Sataas 


A  lacatian 
Si 

END  af  select 
EXIT 


DATA  PROM  / '  f If 2f 3f dfSf 4f 7f8'  / 

RETS  -  arra*  cantaining  cantents  af  sift  Rets 
PROM  -  arra*  af  valves  ta  retarn  far  saft  keys 
RX  -  actval  valae  retimed 


DATA  I8UF1/'  TR.STPRIN,  '/ 


cnti«ttttiitit«mttmitututttitmttHmt»t*titmtmtMttttit 


nrnn  nnnnnnnn  onnnnnnnnnnnnnnnnnnnnnnnnnr>nnnnnnnnooonn  nnnn  oonn  nnnn 


DATA  ILEVL 
BATA  UST 
DATA  ITDTE 
DATA  ITTST 
DATA  ITSAA 
DATA  ITMCC 
DATA  ITSPD 
DATA  IOTST 
DATA  IDSAR 
DATA  IDMCC 
DATA  IDLUT 
END 


/4HENTRY  / 

/I00D4DB/ 

/6HDATE  / 

/6HIEST  / 

/6HSARNBR/ 

/6HNCCREF/ 

/6HSATPAS/ 

/6HFIELD  / 

/6HSARIF  / 

/6HHCCELF/ 

/6HLUTELF/ 


FTN4 

•FILES(IS.IS) 

PROGRAM  LOCAT  (3,99) 
,  SEF-44-01 
IMPLICIT  NONE 


V00  <841726  0907) 


SARSAT  EVALUATION  FACILITY 


DATE  VERSION 
83/ll/iS  II 


DESCRIPTION 


AUTHOR 

SUZANNE  Y .  SLINN 


durum 


DESCRIPTION: 

This  prod ran  Hill  retrieee  dm  in  a  certain  area 
a  specified  tine  period 
This  prenran  Mill  connote  distances  between  locations,  and 
prodoce  op  to  foor  ootpot  files  dependinq  on  what  the  oser 
specifies. 


CALLING  SEQUENCE' 


RU. LOCAT 
INPUTS' 


OUTPUTS. 

EXTERNAL  REFERENCES. 


Subroutines. 
Sestet* 
RHPAR 
PARSE 
EXEC 


EXEC 

IFBRR 


User- 

MOVDS  -  nooe  a  bote  strinq 

SESET  -  to  aoere  the  operator  for  the  date  ranqe, 
the  deoice  for  the  output  file 
FUNKY  -  to  set  soft  heos  USCRN  in  ZSEFLB  > 

RETLL  -  qoere  operator  fir  latitude  and  lonqitode 
DQOPN  -  to  open  the  database 
DQCLS  -  to  close  the  database 


Functions. 

GETCH  -  to  qet  a  character  fron  a  strinq 
NUHBR  -  to  comer t  ASCII  strinq  to  inteqer  ♦ 

PTINE  -  to  conoert  inteqer  tines  to  double  precision  seconds 
fron  1981 


DATA  DECLARATIONS 


COMMON  /LOGl 
IfOTEGtR  IDS 


0/  LODAT (3) .  HIDATO),  STDAT,  ENDAT.OUTLU(S) .RANGE 


INTECER  LODAT,  HIDAT.  OUTLU.  RANGE 
DOUILE  PRECISION  STDAT.  ENDAT 


This  is  the  blech  cmnon  fir  th«  progran  LOCAT 


INTECER  10DAT,  HIDAT,  OUTLU,  RANGE 

LODAT  -  start  Rat*  in  ascii  TYNNDD 
HIDAT  -  and  data  in  ascii  YYNHDD 
OUTLU  -  aatgat  deuice  ir  f i la  nana 
RANGE  -  ♦  if  dais  ti  ba  pricassad 

DOUBLE  PRECISION  STDAT ,  EH DAT 

STOAT  -  start  data  in  dubla  oracisim  sacinds  frm  19BR 
ENDAT  -  and  data  in  diablt  oracisim  sacinds  frm  198R 

COHHON  /LOCG/  LODAT (3) ,  HIDAT13) ,  STDAT.  ENDAT,  OUTLU <S> .RANGE 

REAL  LOCLAT.  LOaNG,  RADIUS 

LOCLAT  -  latitide  if  licatiin  spacifiad 
LOCLNG  -  lonaitide  if  licatiin  specified 
RADIUS  -  uiinm  separation  allowed  fir  a  natch 

COHHON  /LOCN/  LOCLAT,  LOCLNG,  RADIUS 

INTEGER  IBASE(S),  ILEVL(J).  INODE.  ISTAT(IO),  LIST 
INTEGER  ITDTE(J),  ITTST(3),  ITSAR(3),  ITNCCll),  ITSPD(3> 

INTEGER  IDLUTI3),  1DTSTI3) .  IDSARI3) ,  1DHCCI3) 

these  are  the  paraneters  reaiired  bi  the  INAGE  subrtatines 
IT —  is  the  ITEH  paraneter  fir  each  of  the  files  accessed 
ID —  is  th#  ID  paraneter  fir  each  of  th#  files 

INTECER  SBUF(68) ,  LBUF<?8>,  NBUF176),  FBUF<5I> 

SBUF  -  baffer  fir  the  SAR  incident  detail  file 

LBUF  -  baffer  fir  the  LUT  licatiin  detail  file 

NBUF  -  biffer  for  the  CHCC  location  detail  file 
FBUF  -  biffer  fir  the  field  test  naster  file 

COHHON  /BASE/  IBASE,  ILEVL,  I MODE,  ISTAT.  LIST,  I TOTE, 

ITTST.  ITSAR,  ITNCC,  ITSPD,  IDLUT,  IDHCC, 

IDSAR,  IDTST,  SBUF,  LBUF.  NBUF,  FBUF 

COHHON/SELCT / ALLUT .ALSAT ,SAT ,SX ,CT .SPESAT .PR IN .SECOND , THIRD , 

1  FOUR TH, PST .SST.TST .FST .UNIT, DIF, BENT, REACT ,C0S4 .CBC12 , 

1  CBC24.ALLFR  ,PO!jN, START, EXIT .TAPf, SPECIF  .SEVENT, PASS, 

1  IMAGE. CONTRY.IUSER, TYPE. ELTANG 

INTEGER  C0NTRY(3),IUSER,TtPEU) 

REAL  ELTANG 

LOGICAL  ALLUT. ALSAT. SAT. SX.CX.PRIN, SECOND, THIRD, FOURTH 
LOGICAL  IHAGE 

LOGICAL  BENT ,REALT,CQS4,CBC12,CBC24,ALLFR, EXIT, TAPE, SPECIF 
INTEGER  SPESAT(S), PST, SST.TST.FST, UNIT, POSN, START 
INTEGER  PASS14) .SEVENT 
REAL  OIF 

ALLUT  -  flan  to  indicate  if  all  locations  desired 

ALSAT  -  flap  to  indicate  if  all  satellites  desired 

SAT  -  flaa  ti  indicate  that  a  specific  satellite  is  desired 

SX  -  flap  ti  indicate  that  all  SARSAT  satellites  desired 

CX  -  flap  ti  indicate  that  all  COSPAS  satellites  desired 

SPESAT  -  S  elenent  arrai  containing  the  nanes  if  the  specific 
satellites  desired 

PRIN  -  flap  ti  indicate  that  the  prinari  ntpit  was  chisen 

SECOND  -  flag  ti  indicate  that  the  secmd  outnot  was  chosen 

THIRD  -  flag  ti  indicate  that  the  third  ntpot  was  chosen 

FOURTH  -  flag  ti  indicate  that  the  fioth  output  Mas  chosen 

PST  -  flag  ti  indicate  if  the  headers  fir  the  prinari  output 
hue  been  disputed  tet 

SST  -  flag  ti  indicate  if  the  headers  fir  the  second  iitpit 
been  disputed  tet 

TST  -  flag  ti  indicate  if  the  headers  fir  the  third  iitpit 
hate  been  disputed  tet 

FST  -  flap  to  indicate  if  the  headers  for  the  fiarth  output 
hate  bean  disputed  yet 

UNIT  -  tariable  containinp  the  LU  fir  the  outpit 

DIF  -  tariable  containinp  the  calculated  difference  between 

the  calculated  licatiin  and  the  true  location 
BENT  -  flag  ti  indicate  that  dllb  'bent  pipe'  data  desired 

REALT  -  flap  ti  indicate  that  406  24  Kb/s  real  tine  data  desired 

C0S4  -  flag  ti  indicate  that  406  2.4  Kb/s  COSPAS  stored  data  desired 

CBC12  -  flag  ti  indicate  that  CBC121  data  desired 

CBC24  -  flap  ti  indicate  that  CBF243  data  desired 

ALLFR  -  flap  ti  indicate  that  all  th#  frepuencts  are  desired 

EXIT  -  flap  ti  indicate  if  the  osar  Mishas  ti  abort  the  pngran 

TAPE  -  flag  to  indicate  if  iitpit  to  gi  to  napnetic  tape 

SKCIE  "  U  indicate  if  a  specific  SATPAS  and  EVENT  desired 
SEVENT  -  euent  ninoer  if  the  specific  SATPAS  desired 
PASS  -  arret  containing  the  specific  SATPAS  desired 
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APPENDIX  A 
SAMPLE  RUN 


LOCAT 

Enter  the  nan*  of  the  database  to  be  used 
SAR2 ; HV 

Enter  dote  for  start  and  end  of  search;  ie.  TYMMDD  TYNNDD 
841611  841611 

Soecifo  retrieval  ootpot  device  LUi  18 


Specific  SAT 


I  A  location 
»  END  of  select 


Enter  taraet  location  data; 
Specify  the  search  location 
Lonaitude?  -7V8B33 
Latitude?  4S  35 

Radios?400 


flFBoIK  ffiOTfeWSS  WW-WMSt!™*- 

TR  -TRENTON.  ED  -  EDMONTON,  YJ  -VICTORIA. 

ENTER  THEM  ACCORDINC  TO  THIS  EXAMPLE;  TR  1111 


*  Prinary  Ootpst  t  Second  Output  *  Third  Output  t  Fourth  Output 
Tape  END  uf  select  Inaee  Data  EXIT 


Which  output  du  you  wish? 


416  Bent  fine 
t  CBC243 


416  Real  TiM 
END  uf  select 


4D6  Cospas 
All  frequences 


Which  output  du  yuu  wish? 


416  Bent  Pipe  406  Real  Tine  406  Cosoas  I  CBC121 
I  CBC243  t  END  of  select  All  frequences  EXIT 


There  are  18  hits. 

Do  you  uish  another  query? 

n 


5.0  SUMMARY  COMMENTS 


The  computer  program,  LOCAT,  has  been  described  along  with  the 
USER'S  GUIDE  and  instructions  on  how  to  compile  and  load  the  program. 
Further  documentation  is  provided  in  the  comments  in  the  program  listings, 
see  Appendix  8. 
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•  The  soft  keys  allowing  the  choice  of  output(s)  are  displayed. 

•  The  soft  keys  allowing  the  choice  of  frequency  are  displayed. 
If  the  406  MHz  data  is  requested,  a  prompt  for  the  country  and 
specific  beacon  identific  .tion  of  the  ELT  is  displayed. 

•  When  the  data  retrieval  is  complete,  the  following  message 
appears  on  the  console  to  inform  the  user  of  the  number  of 
records  retrieved: 

There  were  XX  hits. 

Do  you  wish  another  query?. 

where  XX  is  the  number  of  records  retrieved. 

The  option  is  provided  to  recycle  and  input  another  query.  If 
another  query  is  chosen,  the  program  starts  again.  If  another  query  is  not 
desired,  the  retrieved  data  is  written  to  the  logical  unit  previously 
indicated  for  output  and  the  program  halts. 

A  sample  run  is  given  in  Appendix  A. 


4.0  COMPILING  AND  LOADING 


All  the  routines,  relocatable  modules  and  tranfer  files  related 
to  LOCAT  are  found  on  cartridge  148  on  the  SEF  disc.  The  source  code  is 
found  in  files  starting  with  an  &  and  the  relocatable  modules  are  found  in 
files  starting  with  a  %.  For  example,  the  main  program,  LOCAT,  has  its 
source  code  in  the  file  &L0CAT  and  its  relocatable  module  in  %L0CAT. 

The  main  program  and  the  subroutines  are  compiled  using  the 
FORTRAN  4X  compiler.  The  transfer  files  ;L0CAT,  and  ;AL0CS  have  been 
created  to  load  the  main  program  and  its  related  subroutines.  To  load  the 
programs,  enter: 

:RU,L0 ADR,; LOCAT 

:RU,L0ADR, ;AL0CS 

In  order  to  save  the  programs  so  that  it  does  not  have  to  be 
loaded  each  time  the  computer  is  logged  on,  enter: 


:SP, LOCAT: : 113 
:SP,AL0CS: : I 13 
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VARCTA  -  standard  deviation  of  CTA  in  degrees. 

VARTCA  -  standard  deviation  of  TCA  in  seconds. 

!  VARBIA  -  standard  deviation  of  BIAS  in  Hz. 

VARDI  -  standard  deviation  of  DRIFT  in  Hz/mi n. 

'  CORCT  -  correlation  of  CTA  with  TCA. 

CORCB  -  correlation  of  CTA  with  BIAS. 

!  CORCD  -  correlation  of  CTA  with  DRIFT. 

CORTB  -  correlation  of  TCA  with  BIAS. 

CORTD  -  correlation  of  TCA  with  DRIFT. 

U  CORBD  -  correlation  of  BIAS  with  DRIFT. 

The  end  of  the  selection  phase  for  each  of  these  three  data 
retrieval  criteria.  Satellite  and  Location,  Frequency,  and  Output  are 
indicated  to  the  program  by  pressing  the  END  OF  SELECT  soft  key.  Once  all 
these  criteria  have  been  specified,  the  program  then  goes  and  searches  the 
i  database  for  the  records  that  meet  these  criteria. 


3.0 


USER’S  GUIDE 


* 


V 


In  order  to  run  this  program,  logon  to  the  DEVELOP. SEF  account  on 
the  SEF  disk  and  enter  :LOCAT.  The  following  is  the  sequence  of  everts 
that  the  program  will  go  through. 

•  The  name  of  the  database  being  used  is  requested. 

•  A  prompt  is  displayed  requesting  the  start  and  end  date  that 
the  data  retrieval  is  to  take  place  in.  These  dates  are 
entered  on  the  same  line  in  the  format: 

YYMMDD  YYMMDD 

•  A  prompt  is  displayed  requesting  identification  of  the  logical 
unit  to  which  the  output  is  to  be  directed. 

•  The  soft  keys  allowing  the  choice  of  location  and  satellite(s) 
are  displayed. 


r- 

r- 
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SUBROUTINE  OUTPT 

,  5EF-48-90  VOS  <849726. 0?0?> 
IMPLICIT  NONE 


SARSAT  EVALUATION  FACILITY 


DATE  VERSION  DESCRIPTION  AUTHOR 

83/ll/IS  U  -  SUZANNE  t.  SLINN 


DESCRIPTION; 

This  subroutine  determines  which  if  the  four  output  formats  ire 
desired. 

CALLING  SEQUENCE: 

CALLED  FRON:  LOCAT 
CALL  OUTPT 


DATA  DECLARATIONS 


C 

C 


C 

C 

C 

C 


C 

C 


C 

C 

C 

C 

C 

C 

C 


C 

C 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


COMMON  /LOGG/  L0DATI3).  HIDAT13),  STDAT ,  ENDAT.0UTLU<5) .RANGE 
INTEGER  LODAT,  HIDAT,  OUTLU,  RANGE 
DOUBLE  PRECISION  STDAT.  ENDAT 

REAL  LOCLAT,  LOCLNC.  RADIUS 

LOCLAT  -  latitude  of  specified  locition 
LOCLNG  -  lonqitude  of  specified  locition 
RADIUS  -  naiinun  distance  between  specified  locition  and 
file  locations 

COMMON  /LOCN/  LOCLAT,  LOCLNG.  RADIUS 

INTEGER  IBASE(S),  ILEVLI3) ,  IMODE,  ISTAT(IO).  LIST 
INTEGER  ITDTE<3),  ITTST<3),  ITSAR<3),  ITMCC<3) .  ITSPD13) 
INTEGER  I DLUT (3) ,  IDTST<3),  IDSAR<3),  IDMCC<3) 

INTEGER  SBUF(68),  LBUF(98I,  MBUF<76).  FBUF(SO) 

COMMON  /BASE/  IBASE.  ILEVL,  IMODE,  ISTAT,  LIST,  ITDTE, 

ITTST,  ITSAR.  ITMCC,  ITSPD,  IDLUT,  IDMCC, 

IDSAR,  IDTST,  SBUF,  LBUF,  MBUF,  FBUF 

DOUBLE  PRECISION  QTIME,  SDT 

SDT  -  stirt  date 


LODAT  -  ascii  start  date  YYMMDD 
STDAT  -  low  date  in  seconds  fron  1780 
ENDAT  -  hioh  date  in  seconds  fron  1980 

OUTLU  -  outpot  deoiee,  LU  or  filenine 

INTEGER  RBUF<40>,  IPARM(S),  PBUFI33) 

INTEGER  LU.  RET 
INTEGER  SYS,  ISYS,  LOGLU 

RBUF  -  receioinq  buffer 

IPARM  -  return  buffer  for  RMPAR  call 

PBUF  -  return  buffer  fron  PARSE 

REAL  ONEDAY 

INTEGER  DATCHI3) ,  LOOP,  DUMI7).  II 
INTEGER  UNIT 


LOGICAL  LUT.  MCC,  SAR,  TEST,  ALL 

LUT  -  flap  to  indicate  LUT  location  detail  file  selected 

MCC  -  flaq  to  indicate  MCC  location  detail  file  selected 

SAR  -  flaq  to  indicate  SARSTAT  incident  detail  file  selected 

TEST  -  flaq  to  indicate  FIELD  test  naster  file  selectedlected 

ALL  -  all  files  will  be  searched 
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INTEGER  KEYS(8,8> ,  PROMTS) ,  RK 
INTEGER  FIG.  AA,  IFBRK 

FIG  -  fl»q  t*  indicate  if  /E  used 
AA  -  dsnno  paraneter  fur  IFBRK 


CONHON/SELCT/ ALLUT , ALSAT , SAT , SX . CX ,  SPESAT , PR IH , SECOND , THIRD , 

1  FOURTH, PST, SST.TST.FST, UNIT, DIF, BENT, REALT.C0S4.CBC12, 

1  CBC24.ALLFR ,POSN .START .EXIT .TAPE .SPECIF , SEVEN! .PASS .IMAGE, 
1  CONTRY , IUSER , TYPE , EL  TANG 

INTEGER  CONTRYU), IUSER, TYPEU) 

REAL  tLTANG 

LOG ICAL  ALLUT . ALSAT , SAT , SX ,  CX ,PR IN . SECOND , THIRD .FOUR TH 
LOGICAL  BENT, REALT, COS4, C8C12, CBC24 .ALLFR .EXIT , TAPE , SPECIF 
LOGICAL  INAGE 

INTEGER  SPESAT(S) .1 .IOS.PST ,SST .TST.FST .UNIT ,POSN .START 
INTEGER  SEVENT, PASSU) 

REAL  DIF 

ALLUT  -flaq  to  indicate  if  all  locations  wanted 

ALSAT  -flaq  to  indicate  if  all  satellites  wanted 

SAT  -flaq  ta  indicate  if  specific  satellites  wanted 

SX  -flaq  tu  indicate  if  all  SARSAT  satellites  wanted 

CX  -flaq  ta  indicate  if  all  COSPAS  satellites  wanted 

SPESAT-arra?  that  contains  the  specific  satellites  desired 


DATA  KEYS  /' 


Prinaru  Output 
Third  Outpot 
Tape 

Inaqe  Data 


Second  Output', 
Fourth  Outnot' , 
END  af  select  ', 
EXIT  '/ 


DATA  PROIt  /'Fif2f3f4fSf6f7f8'/ 

C  KEYS  -  arrau  containinq  contents  of  soft  keus 

C  PROD  -  arrau  of  oalues  to  return  far  soft  keus 

C  RK  -  actual  ualue  returned 

C 

. . . . . 

C  EXECUTABLE  CODE 

C 

. . . 

c 

ISYS  *  LOGLU(SYS) 

C 

C  initialize  uariables 


LU  -  1 
UNIT  •  9? 

search  files  specified 


101  CONTINUE 

CALL  FUNKY  (KEYS.PRON) 
WRITE  (LU.1003) 

111  CALL  REIO(l,LU,RK,-2) 
RK  *  RK  -2Hf  0 
IF  (RK  LT.  1  OR.  RK 
IF  (RK  EO  8)  THEN 
EXIT’  TRUE. 

GO  TO  999 
ENDIF 


GT.  8)  GO  TO  101 


set  *  in  keu  selected  and  check  fur  further  selects 

IF  (KEYS(l.RK)  .EQ  2H  )  THEN 
KEYS(l.RI)  «  2H* 

IF  (RK  EO.  1)  PR  IN1  TRUE 

IF  (RK  EO  2)  SECOND  ’.TRUE. 

IF  (RK  EO.  3)  THIRD’  TRUE. 

IF  (RK  .EQ.  4)  FOURTH’  TRUE. 

IF  (RK  EQ.  S)  TAPE  »  TRUE. 

IF  (RK  EO.  7)  INAGE  *  .TRUE. 

GO  TO  112 


IF  ( KEYS ( 1 , RK ) 
KEYS(t.RK) 
IF  (RK  EO 
IF  (RK  EO 
IF  (RK  EO 
IF  (RX  EG 
IF  (RK  EO 
IF  (RK  EO 
ENDIF 


EQ.  2Ht  )  THEN 
*  2H 

1)  PR IN’  FALSE. 

2)  SECOND’. FALSE. 

3)  THIRD’. FALSE. 

4)  FOURTH’. FALSE. 

5)  TAPE  ’  FALSE. 

7)  INAGE  ’  FALSE. 


112  CALL  FUNKY(KEYSd.RK).RK) 
IF  (RK  EO.  6)  Gd  TO  210 
GO  TO  ill 

201  CONTINUE 
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•pen  prinery  file  if  this  Htpit  is  desired 
IF  (PR IN)  THEN 

OPEN! it ,FILE='PR INARY' , IOSTAT-IOS ,STATUS*'OLD' ) 

IF  (IOS  NE.  •)  NRlTEdU.lOODIOS 
IF  (IOS  NE.  •>  GO  TO  m 
ENDIF 

•pen  seemd  file  if  this  tetpat  is  desired 
IF  (SECOND)  THEN 

OPEN(U.FILE='SECOND',IOSTAT»IOS.STATUS»'OLD') 

IF  (IOS  NE.  i)  MRITEdU,lttl)IOS 
IF  (IOS  .NE.  I)  GO  TO  99? 

ENDIF 

•pen  third  file  if  this  »«tp*t  is  desired 
IF  (THIRD)  THEN 

0PEN(12,FILE='THIRD',I0STAT=I0S, STATUS’ 'OLD' ) 

IF  (IOS  NE.  I)  MRITtdU,  1012)  IDS 
IF  (IOS  NE.  i)  GO  TO  99$ 

ENDIF 

•pen  ft«rth  file  if  this  totpet  is  desired 
IF  (FOURTH)  THEN 

OPEN(13,FILE’'FOURTH'1IOSTAT=IOS1STATUS='OLD'> 

IF  (IOS  NE.  •)  NRITE(LU,1M4)I0S 
IF  (IOS  NE.  i)CO  TO  999 
ENDIF 

IF  (INACE  )  THEN 
IF  (PRIN)  THEN 

0PENI21 .FILE*' IPRIMARY' . IOSTAT=IOS.STATUS='OLD' ) 
IF  (IOS  NE.  I)  HRIlEdU.llllMOS 
IF  (IOS  NE  0)  GO  TO  999 
ENDIF 

IF  (SECOND)  THEN 

0PEN(22,FILE’'ISEC0ND' , IOSTAT=IOS,STATUS='OLD') 
IF  (IOS  NE.  I)  URITE(LU,1001)IQS 
JF  (IOS  NE  0)  GO  TO  999 

IF  (THIRD)  THEN 

0PEN<23,FILE’'ITHIRD'.I0STAT=I0S.STATUS*'0LD') 
IF  (IOS  NE.  t>  «RITE(LU.IU1II0S 
IF  (IOS  NE.  •)  GO  TO  Ilk 
ENDIF 

IF  (FOURTH)  THEN 

OPEN! 24 .FILE*' IFOURTH' , IDSTAT’IOS .STATUS’ 'OLD' ) 
if  (ias  ne.  «>  mr iTEdu. latinos 
IF  (IOS  NE.  0)  GO  TO  191 
ENDIF 
ENDIF 

CONTINUE 

IF  (POSN  NE.  1ITHEN 
DO  65  11=1. (POSN-1 ) 

IF  (PRIhJ  READ! 10.2017) I 
IF ( SECOND )  READdl, 20)7)1 
IF  (THIRD)  READ(12,2«17)I 
IF  (FOURTH)  READ(13, 2117)1 
IF  (IMAGE)  THEN 
IF  (PRIN)  READ(21 ,2017)1 
IF  (SECOND)  REA0(22. 2117)1 


ENDIF 

F0RNAT(A2) 

CONTINUE 

DO  96  11=1 . (PLACE-1 ) 

READ! 14,2117)1 
CONTINUE 
ENDIF 

URITEdU.lOIS) 

FORMAT ( '  ERROR  IN  OPENING  PRIMARY  IOS  IS  '14) 
FORMAT ( '  ERROR  IN  OPENING  SECOND.  IOS  IS  ',14) 
FORHATC  ERROR  IN  OPENING  THIRD  IOS  IS  '  .14) 
FORMAT! '  Hhich  •»tp»t  d»  »••  wish)') 

FORHATC  ERROR  IN  OPENING  FOURTH.  IOS  IS  \I4> 
FORMAT) '  ') 

FORMAT!'  ERROR  IN  OPENING  HEADR  IOS  IS  '.I4> 
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SARSAT  EVALUATION  FACILITY 


DATE  VERSION  DESCRIPTION  AUTHOR 

83/11/15  li  -  SUZANNE  Y.  SUNN 


DESCRIPTION- 

This  subroutine  deternines  which  of  the  fregsencies  the  user 
desires  te  «se. 

CALLING  SEOUENCE - 

CALLED  FROM:  LOCAT 

CALL  FREB 


DATA  DECLARATIONS 


C 


E 


c 


C 

c 


c 

c 

E 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


lS?E«R/t8^T<LS?MTf^Ly^^ESTMT'EMMTlWTLU<S,lR^ 

DOUBLE  PRECISION  STD*!,  ENDAt 

REAL  LOCLAT,  LOaNC,  RADIUS 

FSS-fil  *  }4,i,,d*  «T  specified  location 
yXVS  *  '•"»»’»de  of  specified  location 
RADIUS  -  naxinun  distance  between  specified  location  and 
file  locations 

CONNQN  /LOCN/  LXLAT,  LOCLNC,  RADIUS 

INTEGER  IBASE(S) ,  ILEVLI3) ,  INODE,  ISTATUO)  LIST 
INTEGER  ITDTEI3) ,  ITTSTI3) ,  ITSARlS),  ITMCC(j).  ITSPD(J) 
INTEGER  IDLUUJ),  IDISTI3).  IDSARtS),  IDNCC13) 

INTEGER  SBUF(68),  L8UF(?B>.  NBUFI76),  FBUF(SO) 

CON HON  /BASE/  (BASE ,  ILEVL,  INODE,  ISTAT,  LIST.  ITDTE 
ITTST,  ITSAR.  ITHCC,  ITSPD,  IDLUf,  IDNCd, 

idsar .  idtst,  sbuf,  lbuf,  hbuf,  fbuf 

DOUBLE  PRECISION  QTINE,  SDT 
SDT  -  start  date 


LODAT 

STDAT 

ENDAT 


-  ascii  start  date  YYRHDD 

-  low  date  in  seconds  fron  1788 

-  high  date  in  seconds  fron  1981 


OUTLU  -  ostpst  device,  LU  or  filenane 

INTEGER  RBUFUI),  IPARH(S),  PBUFI33) 
INTEGER  LU,  RET 
INTEGER  SYS.  ISYS.  LOCLU 

RBUF  -  receiving  bvffer 

IPARN  -  retvrn  bvffer  for  RNPAR  call 

PBUF  -  retvrn  bvffer  frvn  PARSE 


UUUUUUUU 
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REAL  ONE DAY 

INTEGER  DATCH<3) .  LOOP,  DUH<7),  II 
INTEGER  UNIT 


LOGICAL  LUT,  HCC,  SAR,  TEST,  ALL 


MS 

SAR 

TEST 

ALL 


-  flaq  ta  indicate  LUT  lacatian  detail  file  selected 

-  flao  ta  indicate  HCC  lacatian  detail  file  felected 

-  flaq  ta  indicate  SARSTAT  incident  detail  file  selected 

-  flaq  ta  Indicate  FIELD  test  Miter  file  telectedlected 

-  all  files  Hill  be  searched 


INTEGER  KEYS(8.S),  PR0H(8>,  RK 
INTEGER  FLG,  AA,  IFBRK 

FLG  -  flaq  ta  indicate  if  /E  ased 
AA  -  dewif  paraneter  far  IFBRK 


COHMON/SELCT /ALLOT .ALSAT , SAT , SX .CX .SPESAT , PR1H , SECOND , THIRD , 

1  FOURTH, PST, SST.TST.FST, UNIT, DIF, BENT, REALT.COS4, 

1  CBC12,CBC24,ALLFR,P0SN, START, EXIT, TAPE, SPECIF, SEVENT, PASS, 

i  INAGE, CONTRY.IUSER, TYPE .EL TANG 

INTEGER  CONtRY(3),iuSER.tYPE(4) 

REAL  ELTANG 
LOGICAL  INAGE 

LOGICAL  ALLUT .ALSAT .SAT , SX ,  CX , PR IN .SECOND , THIRO -FOURTH 
LOGICAL  BENT, llEALT,dOSA,CBii2,CBC2l,ALLFR, EXIT, TAPE, SPECIF 
INTEGER  SPESAT(5) . XOS.PST, SST.TST.FST, UNIT, POSN, START 
1N1ECER  SEVENT, PASSU) 

REAL  DIF 

ALLUT  -flaq  ta  indicate  if  all  lacatians  wanted 

ALSAT  -flaq  ta  indicate  if  all  satellites  wanted 

SAT  -flaq  ta  indicate  if  specific  satellites  wanted 

SX  -flaq  ta  indicate  if  all  SARSAT  satellites  wanted 

CX  -flaq  ta  indicate  if  all  COSPAS  satellites  wanted 

SPESAT-arrar  that  cantains  the  specific  satellites  desired 


DATA  KEYS  /' 


Alt  Bent  Pipe 
416  Caspas 
CBC243 

All  freqeencvs 


406  Real  Tine 
CBC121 

END  af  select 
EXIT 


DATA  PROH  /'fif2f3f4fSf6f7f8'/ 

KEYS  -  arraa  cantaininq  cantents  af  saft  ke»s 
PROH  -  arras  af  raises  la  relarn  far  saft  less 
RK  •  actaal  salae  reterned 


emit . . 

c 

C  EXECUTABLE  CODE 

C 


1SYS  *  LOGLUtSYS) 

initialize  sariables 


ALLFR  =  FALSE. 

BENT  =  FALSE 

av-fSK- 

CBC12  *  FALSE. 

CBC24  «  FALSE. 

LU  =*  i  „ 

UNIT  •  9? 

search  files  specified 

ill  CONTINUE 

CALL  FUNKY  (KEYS, PROH) 

MITE  aU,il«3) 

1,1 

IF  (RK  LT  1  OR  RK  CT.  8)  CO  TO  ill 
IF  (RK  EB  8)  THEN 

HW 

END  IF 

set  1  in  he*  selected  and  check  far  farther  selects 

IF  (KEYS(1,RK)  EB  2H  )  THEN 
KEYS(l.RK)  •  2HI 
IF  (RK  EB  1)  BENT*  TRUE. 

IF  (RK  EB  2)  REAL!  *  TRUE . 

IF  (RK  EB.  3)  COS4-  TRUE 
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IF  (KEYS(l.RK)  Ed.  2HI  )  THEM 
KEYS ( 1  ,MK )  *  2H 
IF  <RK  .Ed. 


IF  (RK 
IF  (RK 
IF  (RK 
IF  (RK 
IF  (RK 
END  IF 


•  Ed. 
Ed 
Ed. 


1)  8£NT»  FALSE. 

2)  REALT=. FALSE. 

3)  C0S4=. FALSE. 

4)  C8C12=  FALSE. 

5)  CBC24»  FALSE. 

7)  ALLFR*. TRUE. 


112 


211 


999 

mi 

ion 

1112 

1113 

1114 

IMS 


CALL  FUNKY<KEYS<1.RK),RK) 

IF  (RK  Ed.  6)  GO  TO  211 
GO  TO  111 

CONTINUE 

clear  the  'I'  Free  the  select  arra* 

DO  4  RK=1,B 
KEYS(1,RK)=2H 
CONTINUE 

CONTINUE 

URITE(LU.IMS) 

FORHATC  ERROR  IN  OPENING  PRIMARY .  IOS  IS  ',141 
ERROR  IN  OPENING  SECOND  IOS  IS  ',14 ) 
ERROR  IN  OPENING  THIRD  IOS  IS  ',14 1 

Which  aetpat  d*  mi  wish?') 

ERROR  IN  OPENING  - -  ' 

') 


FORMAT ( 
FORMAT! 
FORMAT ( 
FORMAT  ( 
FORMA T( 
RETURN 
END 


;  FOURTH  IOS  IS  M4) 
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SARSAT  EVALUATION  FACILITY 


FTN4 

’f,L£SM{,NE  OUTDT ( ICONTR) 

.  SEF-4I-II  VII 
IMPLICIT  NONE 

C 


<841727  1242) 


DATE 

83/ll/IS 


VERSION 

II 


DESCRIPTION 


AUTHOR 

SUZANNE  Y  SLINN 


DESCRIPTION 

This  sabraatine  farnats  the  data  Trie  the  fur  aatpat 
files  inta  the  fare  reqaired  far  aatpet  ta  the  printer  This 
raatine  calcalatts  the  delta  lat  and  delta  lang  if  necessars. 

CALLING  SEQUENCE: 

CALLED  FROM:  LOCAT 
CALL  OUTDT 


OATA  DECLARATIONS 


- 1 


COMMON  /IOGG/  L0DAK3).  HIDAT13),  STDAT ,  ENDAT,0UTLU(5)  .RANGE 
INTEGER  LQDAT,  HI  DAT,  OUTLU,  RANGE 
DOUBLE  PRECISION  STDAT,  ENDAT 

REAL  LXLAT,  LOCLNG,  RADIUS, LUTLA.LUTLG.DSTNC 

LOCI  AT  -  latitade  af  specified  lacatian 
LOCLNG  -  lengitsde  af  specified  lacatian 
RADIUS  -  naiinan  distance  between  specified  lacatian  and 
file  lacatians 


UUUCJUUUUUU  UUUU  U  uu  UUUUUUU 
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S 

» 


c 


c 

c 


c 


COMMON  /LOCH/  LOCLAT ,  LOCLHG,  RADIUS 


INTEGER  IBASEIS).  ILEVL<3>,  I  HOSE.  ISTAT  ( 10 ) ,  LIST 
INTEGER  ITDTEI3),  ITTSTI3) .  ITSAR C 3 > .  ITHCCI3),  ITSPDI3) 
INTEGER  IDLUT<3),  IDTSTI3) .  I0SARI3I.  IDHCC(3) 

INTEGER  SBUfi&S),  LBUF(99),  M8UF<76>.  FBUftSI)  ,BGBUF<28I> 

COHHON  /BA'S/  ISASE,  ILEVL,  I  HOSE,  ISTAT.  LIST.  ITDTE, 
ITTST,  ITSAR,  ITHCC,  ITSPD.  IDLUT,  IDNCC, 
IDSAR,  IDTST,  SBUF,  LBUf,  HBUf ,  FBUf 

DOUBLE  PRECISION  OTIME,  SST 


SDT  -  start  date 


LODAT  -  ascii  start  date  TTHHSD 
STDAT  -  low  date  in  seconds  fron  1990 
ENDAT  -  hidh  date  in  seconds  fron  1988 

OUTLU  -  ootpot  device,  LU  or  filenane 


INTEGER  RBUFI40) ,  IPARM(S),  P8UF133) 

INTEGER  LU.  RET 

INTEGER  STS.  ISTS,  LOGLU 


RBUF  -  receioinq  boffer 

IPARH  -  retern  boffer  far  RHPAR  call 

PBUF  -  return  boffer  f ran  PARSE 


REAL  QHEDAY 

INTEGER  DATCH(3),  LOOP,  DUH(7).  II 
INTEGER  UNIT 


C 

c 


c 

c 

c 


LOGICAL  LUT.  MCC,  SAR.  TEST,  ALL 

LUT  *  flaa  to  indicate  LUT  location  detail  file  selected 

HCC  -  flaq  to  indicate  NCC  location  detail  file  selected 

SAR  -  flaq  to  indicate  SARSTAT  incident  detail  file  selected 

TEST  -  flaq  to  indicate  FIELD  test  naster  file  selectedlected 

ALL  -  all  files  will  be  searched 


INTEGER  XEYS<8.8>.  PRONtB),  RX 
INTEGER  FLG,  Ml.  <FBRK 


-  flaq  to  indicate  if 

-  denes  paraneter  for 


COMMON/SELCT / ALLUT .ALSAT.SAT ,SX .CX .SPESAT .PRIM .SECOND .THIRD, 

1  FOURTH.PST.4SI,TSi,FSt,UllST, DIF, BENT  .REllLT, COSi,  CBCii, 

1  CBC24 , ALlFR , POSN . stART , EXIT , TAPE .SPECIF , SEVEN! .PASS , 

1  IMAGE, CONTRY.IUSER, TYPE. ELTANG 

INTEGER  CONTRY(3) ,  IUSER.TYPEH) 

REAL  ELTANG 

LOGICAL  ALLUT .ALSAT.SAT ,SX ,CX, PRIH .SECOND, THIRD.FOURTH 
LOGICAL  BENT .REAL! .C0S4 .CBC12.CBC24 .ALLFR .EXIT , TAPE .SPECIF 
LOGICAL  IMAGE 

INTEGER  SPESAT(S), I. PST, SST. TST,FST,HSGl(i28) , POSN, START 
INTEGER  SEVENT.PASSlU 
REAL  DIF 


ALLUT  -flaq  to  indicate  if  all  locations  wanted 
ALSAT  -flaq  to  indicate  if  all  satellites  wanted 


E 

c 

c 

C 


c 

c 

c 


ft 


-flaq  to  Indicate  if  specific  satellites  wanted 
-flaq  to  indicate  if  all  SARSAT  satellites  wanted 


CX  -flaq  to  indicate  if  all  COSPAS  satellites  wanted 
SPESAT-arrae  that  contains  the  specific  satellites  desired 


DOUBLE  PRECISION  LATC ,LATT .LONGT .LOHGC ,FA , DIFFR , DLAT , DLONG 

REAL  R.P 

LATC  -calcolated  latitode  fron  LUT  file 
LATT  -tree  latitode  as  inoot  b»  the  user 
LONGT  -tree  lonqitode  as  inpot  bo  the  user 
LONCC  -calcolated  lonqitode  fron  the  LUT  file 
DLAf  -difference  in  latitode  in  kn. 

DLONG  -difference  in  lonqitode  in  kn 


INTEGER  TRYAI6I .TRYB(b) .LINE.PAGE.RSPGE.HLIME.POS.CPOS 
INTEGER  HPASS(O) .HEVET .LPASS'f ) .LEVET ,ITEH<3) ,HREF,MSG2(80 > 
REAL  LONGA.LONCB.LATA.LATB.FLAT .FLONG.FRADI .CRADI ,CLAT .CLONG 
INTEGER  ELTIi . EL T 12 , ELT 13 .ELTI4 , SPOT . ICONTR ( 1 • > 

EQUIVALENCE!  TRYAf  1 )  .HSGK22) ) 

EOU I VALENCE  <  TR YR  < 1 > , MSGi ( 27  > ) 

XEYS  -  arrao  containinq  contents  of  soft  ke»s 

PROM  -  arrao  of  soloes  to  retorn  for  soft  beys 

RX  -  sc  tool  oaloe  re torned 
DATA  ITEH/MWCCREF/ 


*  s 


■  -J 

■■  '■< 
■'  '4 


t 
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CKumittuitmmiMmmtttmiimimumiummuiittiiiu 

c 

C  EXECUTABLE  CODE 

C 

cuntminttwiuiumuiittmtiimnitiiniiiiiiitiimmiitti 

c 

SPOT  *  t 

CALL  LG8UF(8GBUF,2||> 

ISYS  *  LOGLJ(STS) 

C 

C  initialize  eariablcs 


C  read  fr««  ihc  header  file 

C 

BEHIND  (14) 

READU4,FHT=1I22,IOSTAT*ISTAT)POS,FLAT,FLONG,FRAD1 

CPOS-POS 

CRADI-FRADI 

CLAT=FLAT 

C10NG=FL0NG 

311  READ<14.FNT=U22,10SIAI=ISTAI,END=121)P0S.FLA! , FLUNG, FRAI/1 
IF  (CPOi  ED  PQ$>  THEN 
CPOS=POS 
CRADI-FRADI 
CLAT=FLAT 
CLONG=FLONC 
GO  TO  311 
EN01F 
C 

IF  (ISTAT  ME  I)  THEN 
UNITED, 12UISTAT 

121  FORMAT!'  ERROR  IN  READING  HEADER  FILE,  IDS  IS  '.I4> 

GO  TO  m 

GO**  TO  122 

121  P0S=999 

122  CONTINUE 


PAGE =43 

IF  (CRADI  ED  l.l)  THEN 

ELSE**=? 

LINE =7 
ENDIF 
NLINE’l 

IF  (PRIM)  THEN 
P=3  141592454/181. 

R=A378. 

IF  (PST  ED.  1)  GO  TO  til 
PSTM 

HRITE(UNIT.llll) 

URITEtUNIT .till > 

HRITE(UNIT.1II2) 

URITE(llNIT.l) 

HR ITE ( UN I T , 1 123 ) CLAT , CLONG , CRADI 
URITEtUNIT, 1) 

I  CONTINUE 

BEHIND) II , IOSTAT-ISTAT , ERR=993> 
initialize  inpet  beffer  with  blanks 
11=1 

CALL  FlLBSI4»».24l.l*SCi,U) 
read  in  recerd  fran  prlnare  file 
CONTINUF 

READ(1I,FMT»1II4,I0STAT=ISTAT,ERR»993>END=H3)<HSG1(  ID,  11=1,50) 

IF  (ISTAT  NE  I)  THEN 
WRITEd  ,102) ISTAT 

FORMAT! '  READ  ERROR,  ISTAT  IS  ’,14) 

CO  TO  999 
CONTINUE 

UNITED. 9921ISTAT 

EN^MAT(»  ERROR  IN  READING  FILE  '  ,14) 

DECODE ( 9 , 1 0 It , TRTA ILUTLA 
DECODE (9,1 114, TRYBILUTLG 

calcelate  delta  lat,  delta  l»n« 

LATC=LUTLAIP 

LAIT=CLA!IP 

LONCT=CLONGtP 

LONGC=LUILG»P 

if  a  specific  lacatlen  eas  specified  then 
IF  (CRADI  NE  I  I)  THEN 

DIFFR=DSTNC(C10NG,CLAT .LUTLC.LUTLA) 

XAT=RKLATC-LATT) 

DLONG=R I ( LONGC -LONGT ) I COS (LATC ) 
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sss 

c 

c 

c 


22S 


123 

113 


114 


(it  specific  liCitun  was  specified 
ELSE 
D1FFR=9 
DLAT-Q 
DL0NC=8 
END  IF 

MRITE<UNIT,1I19)NLIN£,!HSG1(I1>  ,11=1 ,48) . D JFFB , DLAT  ,DLONG 
NLIN€=NLlNt*l 


if  end  if  page,  skip  it  neit  page 

IF  (LINE  GE  PACE)  THEN 
RSPGE=P ACE -LINE 
DO  2  11=1 ,RSPG£*B 
MRITEtUHIT, 1) 

F0RHAT1'  ') 

CONTINUE 

MRITEIUNIT.UII) 

UR  I TE  <  UNIT ,3901) 

MRITE(UNIT,III2> 

LINE=3 
NLINE=1 
ENDIF 
CONTINUE 

if  haoe  read  all  the  records  for  this  goery  then  display 
the  neit  goer?  location 

IF  INLINE  FQ.  POS)  THEN 
URITE(UNIT.l) 

MRITEIUNIT ,1823)FLAT,FLONG,FRADI 
UR  I TE ( UNIT , 1 ) 

LINE=LINE+3 
CRADI=FRADI 
CLAT=FLAT 
CLONG=FLONG 

READ! 14,FHT=1022 , IOSTAT=ISTAT ,END=123)POS .FLAT .FLONG.FRAD1 
IF  (ISTAT  NE  0)  THEN 
MRITEd  .129)ISTAT 
GO  TO  9$9 
ENDIF 

IF  (LINE  GE.  PAGE)  GO  TO  555 
GO  TO  225 
ENDIF 

GO  TO  111 
P0S=99? 

GO  TO  111 
ENDIF 
CONTINUE 

IF  (SECOND)  THEN 
RSPGE=PAGE-L1NE 
DO  A  11=1  ,RSPGE*8 
MRITE(UNIT.l) 

CONTINUE 
LINE=3 
NLlNE'l 
ENDIF 

if  second  ootpot  is  desired  then  display  its  headers 

IF  (SECOND)  THEN 
IF  (SST  Ed  1)  GO  TO  114 
SST=1 

WRITE(UNIT .1117) 

MITEIUHIT.UIB) 

IF  ((BENT)  OR  (DEALT)  OR  (COSO)  THEN 
WITE(UNIT,2I22) 

ELSE 

HRITE(UNIT,III9) 

ENDIF 
CONTINUE 
REHINDUl) 

REMIND! 14) 

READ(14.FHT=U22)POS,FLAT.FLONG.FRADI 

epos  *  tos 

READ ( 1 4 . FHT=1 122 IPOS , FLAT , FLONC , FRADI 

initialize  boffer  with  blanks 

CALL  FILBSIAIS. 24MSG1.I1) 

SPOT  =  SPOT  ♦  1 

2  read  in  record  fron  second  file 

C 

115  CONTINUE 


non 
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rea d  a  record  fron  the  second  display  file 
IF  ((BENT)  OR  (REALT)  OR.  (COS?))  THEN 
IF  < ICONTR (SPOT )  ED.  2HCA)  THEN 
READ! 1 1 ,20 II . IOSTAT= ISTAT ,ERR=994 ,END=1«7> 
i  (MSGl 111) ,11=1,52) ,CONTRY<1),CONTRY<2> .IUSER , 

l  <TYPE(ID,I1*1,4) 

ELSE 

READ (11,2011, IOSTAT=ISTAT ,ERR=994 ,END=107) 
i  (HSGKIl) .11=1 ,52) ,CONTRY(l) ,C0N|RY(2> , IUSER , 

1  ElTI2,ELTt3,£LTI4 

END1F 
ELSE 

*!f?}l,iLfl?^t?I3TEL?I4T'EM5?M’£NB*187H,'SCl<I1,‘Ii:Sl’52,‘ 
1  ENDIF  ' 

IF  (ISTAT  NE.  I)  THEN 
CONTINUE 

UR  X  TE (1 ,106 ) ISTAT 

FORMAT ( '  READ  ERROR  ON  SECOND  FILE,  ISTAT  IS  ',141 
GO  TO  m 
ENDIF 

write  a  record  onto  the  ootoot  logical  unit 
IF  ((BENT)  OR  (REALT)  OR.  (COS4))  THEM 
IF  (ICONTR(SPOT)  ED  2HCA)  THEN 
MRITE(UNIT,2I20)NLINE, (MSGl (ID , 11=1 ,52) , 

1  C0NTRt(l),C0NTRT(2), IUSER, (TYPE(Il), 11=1.4) 

ELSE 

BRITE(UNIT,2D21)NLINE ,(NSG1 (11 ) ,11=1 ,52) , 
l  CONTRYIl ) ,C0NTRY(2) , IUSER .ELTI2.ELTI3 ,ELTI4 

ENDIF 
ELSE 

WRITEdJNiT,  1021  INLINE,  (MSGl  (ID,  11=1, 52)  ,ELTI1  ,ELTI2 ,ELTI3, 

1  ELTI4 
ENDIF 

LINE=LINEtl 
KLINE =NLINE>1 

if  end  of  peat,  ship  to  ne«t  page 

IF  (LINE  GE.  PAGE)  THEN 
RSPGE=PAGE  -LINE 
DO  5  11=1 ,RSPGE*8 
UNITE (UNIT . 1 ) 

CONTINUE 
NRITE1UNIT , 1117) 

UR ITE (UNIT . 1008) 

IF  ((BENT)  OR. (REALT)  OR. (C0S4))THEN 
HRITE(UNIT,2022) 

ELSE 

MRITE(UNIT,1BI9> 

ENDIF 

LINE=3 

NLINE=1 

ENDIF 

SEE  IF  END  OF  OUERY 

IF  INLINE  EO.  POS)  THEN 
CONTINUE 
CPOS  =  POS 

READ! 14 ,FNT=1Q22.END=23)P0S .FLAT .FLONG .FRADI 
IF  (POS  ED.  CPM)  GO  TO  22 
SPOT  =  SPOT  ♦  1 
ENDIF 
GO  TO  105 
CONTINUE 
POS  =  997 
GO  TO  115 
ENDIF 
CONTINUE 

IF  (THIRD  )  THEN 
RSPGE=P AGE -LINE 
DO  h  I1=I,RSPGE*8 
NR ITE ( UNIT, 1) 

CONTINUE 

NLINE=1 

enHP3 

if  the  third  ootpgt  is  desired  then  oetpvt  its  headers 

IF  (THIRD)  THEN 
IF  (TST  ED  1)  GO  TO  IDS 
TST=1 

UR  I TE ( UNIT ,1911) 

UR ITE (UNIT ,1012) 

UR  I TE ( UNI T .1113) 

CONTINUE 
REMIND! 12) 

initialiie  the  Differ 


CALL  FILDS(4IB,24l,ttSGl,Il) 
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read  in  record  fron  third  file 
1  CONTINUE 

read  a  record  fron  the  third  output  file 
OEA0< 12, 1014,IOSTflT=ISTAT, EBR=99S ,EHD=i 11 ) (MSC1 < I 1 > ,11=1,51) 
IF  (ISTAT  NE  0)  THEN 
CONTINUE 

UNITE (1,1 10) ISTAT 

FORMAT! '  REAS  ERROR  ON  THIRD  FILE.  ISTAT  IS  ' .14) 

GO  TO  999 
ENDIF 

write  a  record  onto  the  output  loqical  unit 
NRITEIUNIT. 1121  INLINE , (MSGI ( II ) , 11=1 ,S0) 

LINE=L1NE+1 

NLINE=NUNEM 

if  end  of  paqe  then  skip  to  the  next  page 

IF  (LINE  GE  PAGE)  THEN 
RSPGE=PAGE-LINE 
DO  7  11=1 .HSPGE+8 

hriteiunJt.i) 

CONTINUE 

MR  IT E ( UNIT .1011 ) 

URITE(UNIT,1012) 

WRITE(UNIT,1013> 

LINE=3 
NLINE=1 
ENDIF 
GO  TO  119 
ENDIF 
,  CONTINUE 
IF  (FOURTH)  THEN 
RSPGE=PAGE-UNE 
DO  8  11=1  ,RSPCE»8 
NRlTEIUNIT.l) 

CONTINUE 

LINE=3 

NLINE=1 

ENDIF 

if  the  fourth  output  is  desired  then  displao  its  headers 

IF  (FOURTH)  THEN 
IF  (FST  .ED  1)  GO  TO  113 

ErIt£(UNIT,101S) 

HRITEIUNIT ,  1016 > 

WRITE(UNIT,1017) 
l  CONTINUE 
REUIND(13> 

initialiiu  buffer  with  blanks 
11=1 

CALL  FILBS(40B,240,HSGI,I1> 
read  in  record  fron  fourth  file 
CONTINUE 

read  a  record  fron  the  fourth  output  file 
READ! 13, 1018, IOSTAT=lSTAT ,ERR*997 ,EN0*li6) (HSGl(Il) ,11*1 ,51) 
IF  ( ISTAT  Nf  0)  THEN 
CONTINUE 

NRITEU.USUSTAT 

FORMAT ( 1  READ  ERROR  ON  FOURTH  FILE.  ISTAT  IS  ',I4> 

GO  TO  999 
ENDIF 

write  a  record  fron  the  ootout  file 
NRITEtUNIT, 1121  INLINE, (MSGl(Il), 11-1,50) 

UNE=LINE*i 

NLINE=NLINE*1 

if  end  of  oage  then  skip  tu  neit  page 

IF  (LINE  GE  PACE)  THEN 
RSRGE=PACE-LINE 
DO  9  I1=1.RSPGE»8 
uriteiunIt.iT 
CON I I HUE 
WUE(UNIT.IOIS) 

UR  j  IE  <  IIN I T ,  If  16) 

NRITE(UNlt,101/) 

LINF=3 
NLINE=1 
ENDIF 
GO  TO  114 
ENDIF 
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116  CONTINUE 

IF  (FOURTH)  THEN 
RSPGE=P AGE-LINE 
DO  11  11=1 ,  BSPGE+8 
WRITE (UNIT , 1 ) 

11  CONTINUE 
LINE=3 
NLINE=1 
ENDIF 

mum  output  image  data  tttnnt 

IF  (INAGE)  THEN 

iniualiie  uanahles 


C  r.ad  frun  the  header  file 
C 

REWIND  114) 

RMD<t4FNT  =  1122,IOSTAT=ISTAT)POS,FLAT,FLONG,FRADI 

CPOS=POS 

cradi=fradi 

CLAT  =FLAT 
C10NC=FL0NG 

811  READ! 14, FHT=1I22.I0STAT=ISTAT1END=721)P0S, FLAT, FLONG.FRADI 
IF  (CPO$  EQ  P0S>  THEN 
CPOS=POS 
CRAOI-FRADI 
CLAT=FLAT 
CLONG=FLONC 
GO  TO  801 
ENDIF 
C 

IF  ( ISTAT  NE  I)  THEN 
WRITE! 1 ,720) ISTAT 

720  FORMAT ( '  ERROR  IN  READING  HEADER  FILE.  IOS  IS  ' ,14) 

GO  TO  97? 

ENDIF 
GO  TO  722 

721  P0S=999 

722  CONTINUE 


ED. .1.0)  THEN 


PACE=43 
IF  (CRADI 
LINE =7 
ELSE 
LINE*7 
ENDIF 
NLIN£=1 


IF  (PRIM)  THEN 
P=3  141592654/180 

EO  1)  GO  TO  700 

PST  =  1 

WRITE1UNIT , 1001 ) 

WRITE(UNIT.lOOl) 

WRITEIUNIT.1002) 

WRITE(UNIT.l) 

WR ITE ( UNI T.1023)CLAT,CLONG, CRADI 
WRlTE(UNIT.l) 

CONTINUE 

REWINDI21 . IOSTAT=ISTAT,ERI=1993) 
lnitiiliie  inott  buffer  with  blanks 
11=1 

CALL  FILBS(40B,24I,MSG1,I1) 
read  in  recurd  frun  urinary  file 


CONTINUE 

READ! 21 ,FMT=1004 , I0STAT=I5TAT ,ERR=1993,END=703) 
(MSGl(ll),Il=l,S0) 


IF  (ISTAT  NED  THEN 
WRITE (1.702) ISTAT 

702  FORMAT (  READ  ERROR,  ISTAT  IS  \I4) 
GO  TO  999 
1993  CONTINUE 

WRITE! 1.1992) ISTAT 

1992  FORMAT (  ERROR  IN  READING  FILE  ’,14) 

ENDIF 

DECODE ( 9, 1 016. TRTAILU TLA 
0ECO0EI9 , 1016 .TRTB1LUTLG 
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r-y-w  -j-m  ~  a  -  njvrj'  a 


512 


550 


empire  tt  s«  if  thi*  if  tht  ctrrtct  record 
IF  JNEUET  .HE.  LEVET)  GO  TO  500 

IF  ( (MPASS(l)  Ed.  LPASStl))  AND.  <NPASS<2>  .Ed.  LPASS<2)> 
1  AND  (MPASS13)  Ed.  LPA5S ( 3 ) )  AND 
1  E®  LPASS(O)))  GO  TO  502 

CO  TO  500 

hl*«  Hit  corrtct  rtcord 
CONTINUE 

IF  ( (ABS(LUTLA-LATA)  ,LT  001 >  AND 
1  lABStLUTLG-LONCA)  LT.  Oil))  THEN 

*ss  *2  •f,SG1  * 1 1 » 

MSG1(34)*2HA 

11=70 

CALL  FPNBS<LATB,177744B,NSG1,I1) 

11=81 

CALL  FPNBS1LONCB , 177744B ,NSG1 , II ) 

11=72 

CALL  M0VBS<NBUF,S7,2,NSG1,I1> 

NSG1(48)=2HB 

ELSE 

11=64 

CALL  WNBS<HBUF,S7,2,HSG1.I1) 

NSC1(34)=2HB 

11=70 

CALL  FPNBS(LATA,177744B,HSC1 ,11) 

11=81 

CALL  FPNBStLONCA , 177744B ,HSG1 ,11) 

11=72 

CALL  N0VBStNBUF,55,2,NSGl ,11) 

NSGM48U2HA 

ENDIF 

CONTINUE 

dite 

11=2 

CALL  NOVBSfL8UF.?,6,NSGl,Il> 
sitpoi  4  id 
11=11+1 

CALL  NOVBS<LBUF,l»,8.NSGl.Il) 

Nccrtf 

CALL  FOONill ,LBUF<4) ,HSG1 ,11,6) 
eoent 

CALL  FORM! 10 ,L8UF<3) ,NSC1 ,11,6) 

Mtsfnt 

11=11+2 

CALL  F0RN< 10 ,LBUF(63) ,NSG1 ,11,6) 

Freqotnc* 

CALL  FOBHdO  ,LBUF(25)  ,NSG1 ,11,4) 


-1 


C  tit  ltt  ind  tit  ltng 

C 

11=42 

lfl53FPM*S<LUTLfl,,777MB  ,NSG1  ,U  1 
CALL  FPNBStLUTLC, 177744B.NSGI ,11 ) 

C 

IF  (OTHOAT)  THEN 

UR  HE  1 21 , 1004)(NSG1(  It  >  ,11=1,50) 

ELSE 

URITE(10,1004)tNSGltll) ,11*1,50) 
POSN=POSN+1 
END  IF 

1000  FORNATt' 

1001  FORMAT  < ' 

1 

1002  FORNATt'  DATE  SATPAS 

1  '  ELTLONG 

1  '  0IFF  DLAT 

1004  F0RNAT(50A2) 

1105  FORNATt'  IIURROR  IN  NCCELF ,  ISTAT  IS  MO) 
RETURN 
ENO 


U 


PRINART  DATA') 

SECONDARY') 

NCCREF  EVENT  NESSNT 
ELTLAT  ELTLONG 
DLONC') 


PRINART' 

ELTLAT'. 


► 
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INTEGER  KEYS<8,8) ,  PR0M<8),  RX 
INTEGER  FIG,  M,  IFBRK 

FIG  -  flag  ti  indicate  if  /E  used 
AA  -  donny  paraneter  f#c  IFBRK 


C0HHQN/5ELCT/ALLUT .ALSAT.SAT ,SX ,CX .SPESAT ,PRIH, SECOND , THIRD , 

1  FOURTH.PST.SST.TST.FST, UNIT, DIF, BENT, REALT,C0S4,CBC12, 

1  C8C24,ALLFR,P0SN, START, EXIT. TAPE, SPECIF, SEVEN!, PASS, 

1  IMAGE .CONTRY ,  IUSER  , T YPE .ELTAnC 

INTEGER  CONTRY(J) , IUSER, TYPE(4) 

REAL  ELTANG 

LOGICAL  ALLUT, AL SAT, SAT, SX.CX, PRIM .SECOND, THIRD, FOURTH 
LOGICAL  BENT .REACT ,C0S4 ,CBC12,CBC24,ALLFR .EXIT .TAPE , SPECIF 
LOGICAL  IMAGE, OTHDAT 

INTEGER  SPESAT (S), I .PST, SST,  TST, FST.MSGK  121  l.POSN,  START 
INTEGER  SEVENT,PASS<4) 

REAL  DIF 

ALLUT  -flaq  tt  indicate  if  all  locations  wanted 

ALSAT  -flag  ti  indicate  if  all  satellites  wanted 

SAT  -flag  to  indicate  if  specific  satellites  wanted 

SX  -flag  to  indicate  if  all  SARSAT  satellites  wanted 

CX  -flag  to  indicate  if  all  COSPAS  satellites  wanted 

SPESAT-arrae  that  contains  the  specific  satellites  desired 

DOUBLE  PRECISION  LATC.LATT.LONCT.LONCC.FA.DIFFR .DLAT .DLONG 
REAL  R.P 

LATC  -calculated  latitude  fr in  LUT  file 
LATT  -tree  latitode  as  inpot  by  the  user 
LONGT  -trie  longitude  as  inpot  by  the  iser 
LONGC  -calculated  longitode  fron  the  LUT  file 
DLAT  -difference  in  latitode  in  kn 
DLONG  -difference  in  longitude  in  kn. 

INTEGER  TRYA(3),TRYB(3) 

INTEGER  HPASS(4) ,MEVET,LPASS(4) .LEVET ,ITEN(3) ,MREF ,NSG2(8I) 
REAL  LONGA, LONGB, LATA, LATB 
EOU IVALENCE1LAT  A ,  MBUF  132)1 
EOU I VALENCE  <  LONGA . MBUF ( 3  4  > ) 

EOU I VALENCE ( LATB , MBUF ( 43 ) ) 

EOUIVALENCE (LONGB . MBUF ( 4S ) ) 

EQUIVALENCE ( MPASS ( 1 ) .MBUF (IB)) 

EOUIVALENCE (MEVET .MBUF (3) ) 

EOU I VALENCE ( LP  ASS  1 1 ) .LBUF(il)) 

EQUIVALENCEILEVET ,LBUF (31 1 
EQUIVALENCE (HREF. LBUF(4) ) 

EOUIVALENCE <  LUTLA , LBUF  <  28  >  > 

EQUIVALENCEILUTLC ,  LBUf  (3RD 
EQUIVALENCE  <THYA( 1) . HSGi ( S4 1 ) 

EQUI VALENCE ( TR YB( 1 ) ,HSG1(59) ) 

NETS  -  array  containing  contents  of  soft  keys 

PROM  -  array  of  oaloes  to  retorn  for  soft  keys 

RN  -  actual  ualue  retimed 
DATA  ITEM/6HHCCREF/ 


citiiiinitttiiniittmniiiittitiininuiiitttuiiiniiutimniu 

c 

C  EXECUTABLE  CODE 

c 

ISYS  *  lOGLU(SYS) 

C 

lit  CONTINUE 

C 

11=1 

CALL  FILBS(4IB,24I,MSG1,I1) 


SIR 


Sll 


deternine  if  there  is  an  MCCREF  nunber  linked  in  the  LUT  record 

IF  (HREF  EQ  I)  GO  TO  SSI 

initialiie  the  chain  to  the  MCC  detail  records 

fF%Sf£H5^iW8T"'F',’,,I‘" 

MMM " 551 

read  the  NCC  record 
CONTINUE 

IF  (ISTAT  Efl.  15S)  GO  TO  SSI 
NRITE(LU,illS)ISTAT(i) 

CONTINUE 


I  f  I  III 

CJ  UOUO  (JUUCJ  U(JL)U(J(JUU(JUUU  UU(J(JOtJOOO(JtjU 
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*F  ILES( 15,15) 

SUBROUTINE  PRIMRIOTHDAT) 

.  SEF-40-IO  VIO  <841725.1427) 
IMPLICIT  NONE 


SB* SAT  EVALUATION  FACILITY 


DATE  VERSION  DESCRIPTION  AUTHOR 

33/11/15  II  -  SUZANNE  Y.  SUNN 


DESCRIPTION 

This  sobrootine  displays 
desired  logical  unit 


the  first  of  the  foor  totpet  files  on  the 


CALLING  SEDUENCE: 
CALLED  FROM-  ALOCS 
CALL  PRIHR 


DATA  DECLARATIONS 


C 

C 

C 

C 

C 

C 

c 

C 

C 


c 

c 


c 

c 

c 

c 

c 

c 

E 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

E 


COMMON  /LOGG/  LODAT! 3) ,  HI DAT < 3) .  STOAT.  ENDAT.OUTLU(S) .RANGE 
INTEGER  LODAT,  HIDAT,  QUTLU,  RANliE 
DOUBLE  PRECISION  STOAT,  ENDAT 

REAL  LOCIAT.  LOCLNG,  RADIUS. LUTLA.LUTLG 

LOCLAT  -  latitode  of  specified  location 
LOCLNG  -  longitode  of  specified  location 
RADIUS  -  naiinon  distance  between  specified  location  and 
file  locations 


COMMON  /LOCN/  LOCLAT,  LOCLNG,  RADIUS 

INTEGER  I  BASE  (5) ,  ILEVU3).  IMODE,  ISTAT(IO).  LIST 
INTEGER  I1DTEI3),  ITTSK3),  ITSARU),  ITMCCI3) ,  ITSPD<3> 
INTEGER  IDLUTI3) ,  IDTSK3) .  IDSARI3) ,  IDMCCI3) 

INTEGER  SBUF<68).  LBUF<98),  MBUF<76>,  FBUF<5«)  ,BGBUF(SJ8> 


COMMON  /BASE/  IBASE.  ILEVL ,  I MODE,  ISTAT,  LIST,  ITDTE, 
ITTST,  ITSAR,  ITMCC,  ITSPD,  IOLUT,  IDMCt , 
IDSAR,  IDTST,  SBUF,  LBUF ,  HBUf,  FBUF 


DOUBLE  PRECISION  QTIME,  SDT 


SDT  -  start  date 


LODAT  -  ascii  start  date  YYMMDD 

INK  :  iigh<*3at.*?nSsectnis^fron1??8l 

OUTLU  -  totpet  deoice,  LU  or  filenane 

INTEGER  RBUF(4I) ,  IPARM<5),  PBUFI33) 

INTEGER  LU.  RET 
INTEGER  SYS,  ISYS,  LOCLU 

RBUF  -  receioing  boffer 

IPARM  -  retorn  boffer  for  RMPAR  call 

PBUF  -  retorn  beffer  frtn  PARSE 

REAL  ONEOAY 

INTEGER  DATCH13) ,  LOOP,  DUH<7>,  li 
INTEGER  UNIT 


LOGICAL  LUT,  NCC,  SAR,  TEST,  ALL 

LUT  -  flan  to  indicate  LUT  location  detail  file  selected 

MCC  -  flag  to  indicate  MCC  location  detail  file  selected 

SAR  -  flag  to  indicate  SARSTAT  incident  detail  file  selected 

TEST  -  flag  to  indicate  FIELD  test  naster  file  selectedlected 

ALL  -  all  files  Mill  be  searched 
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i 


2 

C 


E 


c 

c 


c 

c 

c 

c 


c 

c 

c 


124 

c 

c 

c 


c 

c 

c 


128 

Sll 


til 


ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
CONTINUE 
CO  TO  211 

mV™ 

CONTINUE 


Eli  angle  calcalatian 

IF  ((LBUF(iO)  EQ  2HS1)  OB.  (LBUF(IG)  .EQ  2HS2))H=8SI 
A  *  ABS(CTA)  I  PHI/181 
K1  *  AE  ♦  H 

ElTANG=SQIT((Af«SIH(A)ISIN(A))/(Af+2«<A£E«l*(l-C0S<A))t) 
ELTANG=(AEISlN(A))/S0IT(<2IAE«(AE*H>ld-C0S(A>>)KHIH>> 
ELTANC  -  9l-(< ABS(CTA) >♦ < A5I N ( ELTANG ) 1 1 81  /PHI)) 


ENDIF 


call  the  aitpat  raatines  according  ta  tape  if  aatpal  desired 
OTHDAT*  FALSE 

IF  (PITH)  CALL  PIIHt(OTHDAT) 

IF  (SECOND)  CALL  SECDT ( OTHDAT .SPECON) 

IF  (THUD)  CALL  TEITI(OTHDAT) 

IF  (FOURTH)  CALL  INIADT( OTHDAT) 

IF  (IHACE)  THEN 
OTHDAT*  TIDE 


Obtain  chain  infa 
INODE *411 

CALL  DOINFdBASE.IOLUT.  INODE. ISTAT, INFO,  14) 
IF  (ISTAT(l)  EO  I)  Cd  TO  124 
HRITEd.Ull)ISTAT(l) 

CO  TO  8$9 
CONTINUE 


Cet  the  alternate  aalatian 
IHOIE-4 

CALL  D9QEI (1BASE . IDLUT .INODE , IBUF . ISTAT , ALTSOL ,2 ) 
IF  (ISTAT(l)  EO  I)  CO  TO  Sll 

a,ffi,w*,,,|),swT,‘) 

CONTINUE 


Rrite 


ata 


IF  (PIIN)  CALL  PRIHKOTHDAT) 

I)  (SECOND)  CALL  SECDT < 0 T MOAT . SPECON) 
IF  (THUD)  CALL  TEN T I < OTHDAT ) 

IF  (FOURTH)  CALL  OUADT(OIMDAT) 


Cet  the  anainal  recard  hack 

CALL  DOGETdBASE,  IDLUT,  INODE  J.BUF,  ISTAT. ALTSOL, 2) 
IF  (ISTAT(I)  EO  I)  CO  TO  12S 
WITF'LU.lllll  ISTAT(l) 

M# 

tenure  the  chain  infarnatian 
INODE =412 

CALL  DOINFI IDASE. IDLUT, INODE.ISTAT, INFO, 14) 

IF  ( ISTAT ( 1 )  EO  I)  CO  TO  128 
WtITE<LU.llU)lSTAT(t) 

CO  TO  M 
CONTINUE 
ENDIF 
CONTINUE 
OEUENT  *  LPUfU) 

OLDSAT  ( 1  )=18UF(1I) 

0LDSAT(2)=LB(Edl> 

OLDSAT (J)*LBUF ( 12) 

OLDSAT(4)=LBUF( 13) 

CO  TO  211 
rnuTtMir 

HRITEILU.IIISXPOSN-START) 
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EO 
EO 
Ef 
El 

.El 

Eg 

:B: 

EO 

IS. :: 


-21283) 

-21287) 

-21311) 

-14243) 

-14247) 

-14254) 

-14242) 

14271) 

14251) 


TYPE ( 4 ) 
TYPE  <  4  > 
TYPE  <  4  > 
TYPE<4) 
TYPE  <  4 ) 
TYPE! 4 ) 
TYPE ( 4 ) 
TYPE ( 4) 
TVPE14) 
TYPEU) 
TYPE<4> 


*  2HB1 
=  2HB2 

*  2)183 
=  2H84 

*  2HB5 

*  2HT i 
=  2HT2 

*  2HT3 

*  2HT4 
=  2HT5 
=  2HT4 


EO  2HCC)  THEN 


IF  (LBUFI24) 
IF  (LBHF<24) 
IF  (L«JF(24) 
IF  (LBUFI24) 
IF  <LBUF(24) 
IF  (LBUFI24) 
IF  (LBUFI24) 
IF  (L81IF(24) 
IF  <LBUF(24) 
IF  1LBUF(24) 
IF  (L8UF<24) 
GO  TO  2 
ENDIF 


DO  1  1*1.11 
IF  (BEACONll .1) 

TYPE! 1 >  *  2HCC 
TYPEI2)  *  2HEP 
TYPE13 )  =  2HIR 

IF  (BEACON! 1,4)  EQ  2HB1)  THEN 
IF  <LBUF(24)  EO  -21283)  THEN 
TYPE  4  4)  *2HB1 
GO  TO  2 
END  IF 
ELSE 

IF  (BEACON! I, 4)  EQ  2HB2)  THEN 
IF  <LBUF(24)  EO  -21287)  THEN 
TYPH4)  •  2H82 
GO  10  2 
END1F 
ELSE 

IF  (BEACONU.4)  Efl.  2HB3)  THEN 
IF  (LBUFI24)  Eg  -21274)  THEN 
TYPE  44)  «  2HB3 
CO  TO  2 
ENDIF 
ELSE 

IF  (BEACON! I, 4)  Eg.  2HB4)  THEN 
IF  <LBUF(24)  EO  -21302)  THEN 
TYPE!  4)  =■  2HB4 
GO  TO  2 
ENDIF 
ELSE 

IF  (BEACON! I .4)  EO.  2HB5)  THEN 
IF  (LBUF(24)  EO  -21311)  THEN 
TYPE! 4)  *  2HB5 
GO  TO  2 
ENDIF 
ENOIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

IF  (BEACON! I, 1)  EQ  2HDN)  THEN 
TYPE 11)  =  2HDN 
TYPE (2 )  *  2HDU 
TYPE(3>  =  2HNI 

IP  (SEACONU  4)  Eg.  2HT1)  THEN 
IF  (LBl)F<24)  Eg  -14243)  THEN 
TYPE (4)  *  2HT1 
GO  TO  2 
ENDIF 


ENDll 

ELSE 


IF  (BEACON(I.A)  Eg.  2HT2)  THEN 
IF  (LBUF(24)  EB.  -14247)  THEN 
'  14 1  *  2HT2 


TO 


ENDIF 
ELSE 

IF  <BFACON<I  4)  EO.  2HT3)  THEN 

!  a3!  «• 

GO  TO  2 
ENDIF 
ELSE 

IF  (BEACON! I, 4)  EO.  2HT4)  THEN 
IF  (LBUFI24)  EO  -14242)  THEN 
TYPE (4)  »  2HT4 
GO  TO  2 
ENDIF 
ELSE 

IF(BFAC0H(I.4)Eg  2HT5)  THEN 

^i2^  -i427u  ihin 

GO  TO  2 
ENDIF 
ELSE 

IF  (BEACON! I ,4)  Eg.  2HT4)  THEN 
IF  (LBUFI24)  EB  -14251)  THEN 
TYPE! 4)  *  2HT6 
GO  TO  2 


Check  tt  see  if  406  date  is  desired 
If  ((BENT)  OR.  (REALT)  OR.  (COSO)  THEN 


Check  that  hate  correct  coontrt/beacon 


CALL  BITSG(LBUF<21>,IBIT> 

ICOUNR  -  IBIT<l>*2liBIT(2)t4IIBIT(3>+80IBIT<4) 

♦160IBIT  (5)+320IBIT(6)+64IIBIT(7)+128II8n(8) 
IUSER=IBIT(?)+2*IBIT(1I)M*IBIT(11)+B»IBIT(12) 


IE  A. SPECIFIC. COUNTRY  IS  NOT  WANTED  DETERMINE  THE  COUNTRY 


OF  EACH  BEACON 


IF  (SPECON  NE  1HY)  THEN 
IF  (ICOUNR  .ED.  ill)  THEN 
CONTRY(l)  *  2HUS 
CONTRY (2)  >  2HA 
ENDIE 

IF  (ICOUNR  ED  121)  THEN 
CONTRY < 1 )  =  2HCA 
C0NTRY(2)  -  2HNA 
ENDIF 

IF  (ICOUNR  ED.  211)  THEN 
CONTRY ( 1 >  =  2HFR 
C0NTRY12)  *  2HAN 


ED  221) 
*  2HUS 
>  2HSR 


ENDIF 
IF  (ICOUNR 
CONTRY! 1) 

CONTRY (2 ) 

ENDIF 
IF  (ICOUNR 
CONTRY(l) 

CONTR Y( 2) 

ENDIF 
IF  (ICOUNR 
CONTRY ( 1 )  -  2HUK 
CONTRY (2)  »  2H 
ENDIF 
ENDIF 


THEN 


EB  231)  THEN 
=  2HHO 
=  2HRU 


EB  241)  THEN 


IF  (SPECON  EB.  1HY)  THEN 

IF  ( (CONTRY!  1 )  EB.2HUS)  AND  (CONTRY (2 ) . EB  2HA  DTHEN 
IF  (ICOUNR  NE  111)  CO  TO  201 
aSE 

IF  (CONTRY(l)  EB  2HCA)  THEN 
^(ICOUNR  NE  121)  GO  TO  21) 

IF  (CONTRY  (1)  EB  2HFR)  THEN 
IF  (ICOUNR  NE  211)  GO  TO  2)) 

EIFUCONTRY(l)  EB.  2HUS)  AND.  (C0NTRYI2)  E9.2HSR))THEN 
IF  (ICOUNR  NE  221)  GO  TO  201 
ELSE 

IF  (CONTRY(l)  EB  2HNO)  THEN 
IF  (ICOUNR  NE  231)  GO  TO  201 
ELSE 

IF  (CONTRY  ( t )  EB  2HUR)  THEN 
IF  (ICOUNR  NE.  201)  GO  TO  280 
ENOIF 
ENDIF 
ENOIF 
ENDIF 
ENDIF 
ENDIF 


C,rr*sT  catntrt  ctdr,  if  CANADA,  determine  if  correct  beac 
IF  (CONTRY(t)  EB.  2HCA)  THEN 
SEE  IF  ALL  CANADIAN  BEACONS  ARE  DESIRED 


IF  (BEACON! 1 ,1)  EB.  2H  )  THEN 
IP  (JL8UFI20)  Efl.  -21283)  OR. (LBUFI24) 
■O*  LBUF  24)  EB.  -21276). OR  (LBUFI24) 
.OR, (LBUFI24)  EB  -21311))  THEN 
TYPE! 1)  *  2HCG 
TYPE(2)  *  2HEP 
TYPE (3)  •  2HIR 

ELSE 

TYPE(l)  *  2HDN 
TYPE ! 2 )  *  2HDU 
_ TYPE(3)  =  2HNI 


EB 

EB. 


-21287) 

-21302) 


uuu  uuu  uuu 
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deternine  if  <11  COSPAS  satellites  are  desired 
IF  (CX)  THEN 

IF  ((LBUFUI)  NE,  2HC1)  AND.  (LBUFUI)  .NE  2HC2)  .AND 
1  (LBUFUI)  .NE.  2HC3)  AND.  (LBUFUI)  .NE.  2HC4) )  GO  ID  280 
END  IF 

determine  if  a  specific  satellite  is  desired 

1F  IFA(tLBlff<iD)  NE.  SPESAT(l))  .AND.  (LBUFUI)  .HE.SPESAT<2>> 
l  AND  (LBUFI10)  NE.  SPESAT(3>> 

1  AND.  (LBUFUI)  NE.  SPESATU))  . 

i  AND.  (LBUFUI)  NE.  SPESAT(S)))  GO  TO  210 

ENDIF 

determine  if  a  specific  SATPAS  is  desired 

IF  (SPECIF)  THEN 
IF  ((LBUFUI)  NE.  PASS(l))  AND 

1  (LBUFUI)  NE.  P ASS < 2 ) )  AND 

i  (LBUFU2)  NE  PASS ( 3 ) )  AND 

1  (LBUFU3)  NE.  PASSU)))  GO  TO  211 

ENDIF 

determine  ehich  freqaenca  af  ELT  is  desired  far  autpat 
CHOSE=  FALSE. 

if  nat  all  the  ELT  freoaencas  are  desired  then 
IF  (NOT.  (ALLFR) )  THEN 

if  CBCI21  and  CBC243  are  desired  then 

VSKiS"!  Sf"!  18  .LW.K,  «. ....  t.  io ... 

CHOSE  =  TRUE. 

GO  TO  ill 
ENDIF 

if  CBC121  is  desired  then 

IFIFC?LBUF(2S)M  NE.  B)  GO  TO  211 
CHOSE*  TRUE. 

ENDIF 

if  CBC2A3  is  desired  then 
IF  (CBC24)  THEN 

IF  (LBUF(2S)  NE  14)  GO  TO  211 
CHOSE  »  TRUE. 

ENDIF 

if  <16  Kb/s  real  tine  is  desired  then 
IF  (RFALT)  THEN 

IF  (LBUFI25)  NE.  2)  GO  TO  211 
CHOSE  =  TRUE. 

ENDIF 

if  <16  'bent  pipe'  data  is  desired  then 


IF  (BENI)  THEN 
IF  (LBUF(2S>  NE. 
CHOSE*  TRUE. 


1)  CO  TO  211 


if  <16  2 . <Kb/s  COSPAS  stared  data  is  desired  then 

IF  (COSA)  THEN  __  . 

IF  (L8UF(2S)  NE.  <)  CO  TO  211 
CHOSE*. TRUE. 

ENDIF 

else  an  ir?<lid  aptian  was  chasen 

IF  (  NOT  (CHOSE) (THEN 
HRITE(LU,56<) 

S64  FORhAK'  AN  ILLEGAL  FREDUENCT  CHOICE  HAS  HADE.  DO  AGAIN') 

GO  TO  ?W 
ENDIF 
ENDIF 
111  CONTINUE 


noonon  nrtn 
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FTN4 

•FILES< 15. IS) 

PROGRAM  ALOCS 

C  -  ,  SEF-4R-I#  VII  <941731.1811) 

IMPLICIT  NONE 
C 

COMMON  /LOGG/  L0DAT13) ,  HI0AT(3),  STOAT,  ENDAT,OUTLU(S> .RANGE 
INTEGER  LOOAT ,  HI  DAT,  dUTLU,  RAN& 

DOUBLE  PRECISION  STDAT ,  ENDAT 
C 

REAL  LOCLAT,  LXLNG,  RADIUS ,H,N 
C 

COMMON  /LOCN/  LOCUT,  LXLNC,  RADIUS 

INTEGER  IBASE(S),  ILEVU3),  IMOOE.  ISTATUI),  LIST  ,ILIST<7> 
INTEGER  ITDTEI3),  ITTSK3),  ITSAR(3>,  ITHCCU),  ITSPK3) 
INTEGER  IDLUT <3> ,  IDTST<3>,  IDSARI3),  IDMCCI3) 

INTEGER  SBUf(68>,  IBUFI98).  MBUF (7b) ,  FBUFI5I ) 

C 

COMMON  /BASE/  I BASE,  ILEVL ,  INODE,  ISTAT.  LIST,  ITDTE, 

ITTST,  ITSAR,  1TMCC,  ITSPD,  IDLUT.  IDMCC, 

IDSAR,  IDTST,  S8UF,  LBUf,  MBUF,  FWJF 


REAL  ONEDAT,  LUTLA,  LUTLG ,  DIF,  DSTNC 

ONEDAT  -  counter  of  24  hours 
LUTLA  -  latitude  on  LUTELF  record 
LUTLG  -  longitude  on  LUTELF  record 
DIF  -  distonce  calculated 


DOUBLE  PRECISION  QTIME,  SDT 
INTEGER  LOOP.  1,  II,  DUM17) , 


DATE1<3) 


LOOP  -  variable  far  da  loop 
1,11  -  counters 

DUN  -  dvutv  buffer  far  call  to  QTIME 

DATE1  -  ascii  date 

INTEGER  LU.  FST,  MSGK40) ,  UNIT 
INTEGERI4  AlTS0L,INF0<7) 

LU  -  terninal  LU  set  to  1 
FST  -  first  tine  flaq 

MSG1  -  output  line  buffer 

UNIT  -  fortran  LU  set  to  99 

1  CBC24.ALLFR,POSN,START, EXIT, TAPE. SPECIF .SEVEN!. PASS, IMAGE, 

1  CONTR  Y ,  IUSER ,  TYPI- ,  EL  TANG 

LOGICAL  ALLOT, ALSAT. SAT ,SX,CX, PR  IN .SECOND, THIRD, FOURTH, SPECIF 
LOGICAL  BENT, iEALT.tOS4.CBC12,CBC24,ALLFR. CHOSE, EXIT, TAPE 
LOGICAL  IMAGE, OTHDAT 

INTEGER  SPESAT(S) .1 ,PST.SST,TST,P0SN.START.SEVENT,PASS(4> 
INTEGER  PLACE.  C0NTRY<3),  BEACON(il,4) . SPECON . I BI t < 16 ) 

INTEGER  REGION, CASEHO,  ICOUNR,  IUSER,  J,  TTPEI4) 

REAL  ELTANG  .  PHI .AE.H.A.Rl ,CTA 
INTEGER  0EVENT,0LDSAT(4) 

EQU I VALENCE  (LUTLA, LBUF128)) 

EQUIVALENCE  (LUTLG, LBUF  (3D) 

EQUIVALENCE  <ALTS0L.LBUF<64> ) 

EQUIVALENCE  (CTA.L8UF(34) ) 

initialize  variables 

PHI  «  3 . 1 4159265 
AE  =  6378  1 45 

H  *  till 


OPEN(3I.FILE='SCRATCH'  STATUS’'XD') 

READ  (31 .1188 JALLUT .ALiAT, SAT, SX,CX,(SPESAT(I) ,I»1 ,S) , PRIM, 

1  SECOND, THIRD.FOURTH 
1188  FORMAT(S<H ,1X),5A2,1X,4<L1 ,IX) ) 

READ  (3l,lli?)PST,S§T,tST,FST,UNIT,DIF.8ENT,REAU,C0S4.CBC12, 

1  CBC24,ALLFR,P0SN,STA(lT,  EXIT,  TAPE,  SPECIF,  SEVEN!,  (PASS!  1),  1=1, 4) 
111?  F0RMAT<5(I5.1X).Fll.31iX,6<Lt.iX),2(I5IlX).3(Ll.lX),I5,lX,4A2) 
READ  <3I,1I2I)IL0DAT(I) ,1-1 ,3) , (HIDATi I) ,1=1 , 3  f ,ST4aT,ENvAT , 

1  (OUTLUd)  ,1=1,5)  .RANGE  .LOCLAT  .LOCLNG, RADIUS  .IMAGE, 

1  REGION, CASENO, PLACE, (IBASEl I). 1=1 ,5) 

1121  F0RMAT(3A21lX,3A2.iX,Fll.3,lX,Fll.3,iX,5A2,lX,IB,lX,3(Fll.3.1X), 
1  LI ,A2,1X,I4, 1X,I3,1X,SA2) 

CLOicdl) 

c 

C  Open  the  output  file 


CALL  0UTP2(PLACE) 
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C  if  end  if  pint  then  skip  ti  ncit  page 
C 

IF  (LINE  GE  PAGE)  THEN 
RSPGE=PAGE-LINE 
DO  ??  I i=i .RSPGE+8 
HRITEIUNIT.l) 

??  CONTINUE 

MRITE!UNIT,101S) 

WITE(UNIT,lli6) 

MB  I TE ( UNIT ,1117) 

L1NE=3 
C  NLINE'l 

ENDIF 
GO  TO  714 

714  ISIfnuE 
C  IF  (FOURTH)  THEN 

RSPGE=P AGE-LINE 

21  CONTINUE 

LINE=3 
NLIN£»1 
C  ENDIF 

ENDIF 

iORI  FORHAK '  PRIMARY  DATA') 

lilt  FORHAK' 

1  '  PRIMARY  S 

1012  FORHAK' 

1  '  DATE  SATPAS  MCCREF  EVENT 

1  '  ELTLONC  ELTLAT 

1  '  DIFF  DLAT  DLOHC' ) 


DATE  SATPAS  HCCREF  EVENT 


SECONDARY') 

HESSNT 

ELTLONC 


POINTS 

TCA 


SECOND  OUTPUT') 

PRIMARY  LOCATION') 

SDEV  TREND  QUAL 
OTIME  LOSTIN 
CORR  SCORE') 

THIRD  OUTPUT') 

PRIMARY  LOCATION') 


FOURTH  OUTPUT*) 
PRIMARY  LOCATION') 


1  '  ELTLONG  ELTLAT  ELTLONC 

1  '  DIFF  DLAT  ALONG' ) 

1104  FORNAK48A2,3!1X,F10.4>) 

1004  FORMAT (F10  3) 

1007  FORHAK'  SECOND  OUTPUT ' ) 

1008  FORHAK'  PRIMARY  LOCATION' ) 

100?  FORHAK' 

1  '  CTA  POINTS  SDEV  TREND  QUAL 

1  '  NHMLS  TCA  OTIME  LOSTIN  ', 

1  '  BIAS  CORR  SCORE' > 

1010  F0RHAI(S2A2,4(1XIIS>> 

1011  FORHAK'  THIRD  OUTPUT') 

1012  FORMAT!'  PRIMARY  LOCATION' ) 

1013  FORMAT!' 

1  '  DRIFT  CTAI  TCAI  MAJAX  HINA 

1  '  AMEAN  BIASI ' ) 

1014  FORHAKSOA2) 

IRIS  FORMAT!'  FOURTH  OUTPUT*) 

1014  FORHAK'  PRIMARY  LOCATION') 

1117  FORMATS  ' 

1  '  VARCTA  VARTCA  VARBIA  VARDI  CO 

1  '  CORCB  CORCD  CORTB  CORTD  CORED 

1018  FORMAT! 50A2) 

101?  FORMAT! IX, 13, ' ) ' ,3X .48A2.3! IX ,F10 . 4) ) 

1020  FORMAT! IX, 13, ' >' ,3X,52A2.4< 1X.IB) ) 

1121  FORMAT! IX, 13. ')',3X,5IA2i 

1022  FORHAKI4.1X.F10  4.1X.F10  4.1X.F?  1) 

1023  FORMAT!'  LOCATION  LATITUDE  -  ' ,F10 . 4.2X, 'LONGITUDE  - 

1  F10. 4, ZX  'RADIUS  -  '  F?  i) 

2010  FORMAT (52A2 ,2Aj . IX .13 . IX , 4A2) 

2011  FORMAT (52AZ ,2A2 , IX , 13,3! IX , 18) ) 

2020  F0RMAK1X.I3, ' )' ,3X,52A2,2A2,1X, I3.1X.4A2) 

2021  FORMAKIX.IT.'T'.SX.SZAZ.ZAZ.IX.U^UX.IS)) 

2022  FORMAT!'  \ 

1  '  CTA  POINTS  SDEV  TREND  ELTANC 

1  '  NNWLS  TCA  OTIME  LOSTIH  ', 

1  '  BIAS  ELT  ID  ') 

???  CONTINUE 
RETURN 
END 


VARBIA 

CORTB 


VARDI 

CORTD 


CORCT 
CORED' ) 


c 

c 


if  the  third  aatpet  i*  desired  then  aatpet  its  headers 


IF  (THIRD)  THEN 
IF  (TST  EQ  1)  GO  TO  718 
TST=i 

UR  ITE  ( UNIT .  1M 1 ) 

URITEtUNIT ,1812) 

NRITEdJNIT ,1113) 

718  CONTINUE 
RENIND<23> 

j  initialize  the  baffer 
11=1 

CALL  FILBS(4II,24I,HSG1,I1> 
read  in  recard  Fran  third  file 
’  71?  CONTINUE 

:  read  a  retard  fron  the  third  output  file  _ ....  . 

READ(23. 1014, I0STAT=ISTAT,ERR=1??S,END=1111><HSG1<I1>, 11=1. SI) 
IF  (ISTAT  NE.  0)  THEN 
??S  CONTINUE 

II  FORMAT ('  TOJor  ON  THIRD  FILE,  ISTAT  IS  M4) 

GO  TO  ??9 
END  IF 

write  a  recard  anta  the  aatoat  logical  unit 


LINE=LINE+i 
NLINE=NLINE+l 

if  end  of  paqe  then  skip  to  the  nezt  paqe 

IF  (LINE  GE.  PAGE)  THEN 
RSPGE -PAGE-LINE 
DO  777  I1=1,RSPGE08 
WRITE*  UNIT , 1 ) 

777  CONTINUE 

HRITE(UNIT.llil) 

UR ITE ( UNIT .1012) 

UR  I TE  ( UN  I T ,  1 1 1 3  > 

LINE=3 
NLINE=1 
ENDIF 
GO  TO  71? 

ENDIF 

1111  CONTINUE 

IF  (FOURTH)  THEN 
RSPGE=PAGE-LINE 
DO  888  Il=l.RSPGE+8 
UR  ITE  ( UNIT ,  1 ) 

888  CONTINUE 
LINE=3 
NUNE=1 
ENDIF 

if  the  foarth  oetpat  is  desired  then  display  its  headers 

IF  (FOURTH)  THEN 
IF  (FST  EQ.  l)  GO  TO  713 
EST=1 

UR  I TE ( UNIT .1115) 

WRITE (UNIT  ,1016) 

UR  I TE (UNIT , 1*17 1 
713  CONTINUE 

REUIND(24> 

initialize  baffer  with  blanks 
11=1 

CALL  FILBS(4I8,24I,HSG1,11) 
read  in  recard  fran  foarth  file 
'  714  CONTINUE 

read  a  record  fran  the  foarth  oetpat  file 
READ! 24,1 118, I0STAT*ISTAT,ERR=1??7,END=714)(HSG1< III ,11=1 , SI) 
IF  (ISTAT  NE.  I)  THEN 
1??7  CONTINUE 

URITEtl ,715)ISTAT 

71S  FORMAT! 1  READ  ERROR  ON  FOURTH  FILE,  ISTAT  IS  ’.14) 

GO  TO  ??? 

ENDIF 

I  write  a  record  fron  the  output  file 

WR ITE(UNIT, 1121  INLINE, (HSG1( ID ,11=1, SI) 

UNE=LINE»1 

NLINE=NLINE*1 


'«n»  '  w  ’j-w  ■; 


C  initialize  fesffer  with  blinks 
E 

11=1 

CAU  FILB$(4QB,249 ,HSG1 ,11) 

E 

C  read  in  retard  frtn  sectnd  f  11* 

C 

SPOT  =  SPOT  ♦  1 
7IS  CONTINUE 

E  retd  i  rectrd  frtn  the  settnd  displaa  file 
IF  ((BENT)  OR  (REALT)  .0*.  (C0S4D  THEN 

IfEAJ(?2!!i?l?Iistlf=liTAT!ERl^i??4,ENl>=7l7) 

1  (NSGl(Il) ,11*1 ,52)  ,C0NTRY( 1) ,C0NTRY(2) .IUSER , 

1  (TTPE(Il) ,11*1 ,4) 

ELSE 

ffEAD<22.2011,IOSTAT=ISTAT,ERR=1994,END=797> 

1  (HSGl(Il) ,11=1,52) ,C0NTRY(1) ,C0NTRY(2> ,1USER, 

1  ELTI2 .ELTI3 , ELT 1 4 

END1F 
ELSE 

READ<22,1019 ,IOSTAT=ISTAT,ERR=t994,END=707)(MSGi(Ii) ,11=1 ,S2) , 
1  ELTI1 ,ELTI2,ELTI3,ELTI4 
ENDIF 

IF  (ISTAT  NE.  •)  THEN 
1994  CONTINUE 

WRITE< 1,704) ISTAT 

70S  FORMAN'  READ  ERROR  ON  SECOND  FILE,  ISTAT  IS  ',14) 

CO  TO  999 
ENDIF 

C  write  a  rectrd  tntt  the  titoit  ltqical  tnit 
IF  ((BENT)  OR  (REALT)  OR.  (C0S4))  THEN 
IF  ( ICONTR ( SPOT)  E8  2HCA)  THEN 
URI1E(UNIT. 2020>NLINE.(HSG1<  ID  .11=1,52), CONTRYd), 

1  C0NTRYI2) ,  IUSER ,  (TYPE!  ID  ,11=1 ,4) 

ELSE 

UR  ITEIUNIT, 2021  INLINE ,  (NSCKIl )  ,11*1 ,52)  .CONTRYI 1) , 

1  C0NTRY(2), IUSER. ELT 12 . ELTI3 , ELT 14 

ENDIF 
ELSE 

URITEdINIT,  1020  INLINE,  (HSGM  ID  ,11*1, 52), ELTI1 ,  ELTI2  .ELTI3 , 

1  ELTI4 
ENDIF 

LINE=LINE+1 

NLINE=NLINE«T 

C 

C  if  end  tf  pine,  skip  tt  neit  pane 

IF  (LINE  GE.  PAGE)  THEN 
RSPGE=PAGE  -LINE 
DO  2555  11=1 .RSPGE+8 
UR I IE (UNIT, l ) 

2555  CONTINUE 

URITE(UNIT,1007) 

URITE(UNIT.IIOB) 

IF  ((BENT)  OR. (REALT)  0R.(C0S4)>  THEN 
URITEUINIT.2022) 

ELSE 

UNITE  <  UNIT , 1((9 ) 

ENDIF 
LINE=3 
C  NLINE*i 

ENDIF 
C 

C  SEE  IF  END  OF  BUERY 

C 

IF  (NLINE  EQ.  POS)  THEN 

24  CONTINUE 
CPOS  =  POS 

READ(14,FMT*t 022, EN0*25)P0S, FLAT .FLONG.FRADI 
IF  (POS  EO.  CPOS)  GO  TO  24 
SPOT  *  SPOM 
ENDIF 
CO  TO  705 

25  CONTINUE 
POS  =  999 
CO  TO  70S 

ENDIF 

707  CONTINUE 

IF  (THIRD  )  THEN 
RSPGE*P AGE-LINE 
DO  644  11=1  .RSPCE+B 
URITE(UNIT,1) 

LINE'S 

ENDIF 


i  calcaUte  del lit,  delta  Una 

LATC=LUTLA*P 

LATT=CLAT*P 

L0NGT=CL0NG*P 

LONGC=LUTLG*P 

If  ,#Kifle<  ,heo 

DIFFR=DSTNC( CLONC , CLAI . LUTLC.LUTIA) 

DLAT=R*(LATC-LATT> 

.  DL0NG=R*(L0NGC-10NGT)«C0S(LATC> 

m  specific  licitim  was  specified 
ELSE 
DIFFR=0 
DLAT=0 
DLDNG-0 
END  IF 

"IJliUNI^lJl^NUNEJWSGKUMUi.dai.DIFFR.DLAf.DLQNG 

LINE=LINE+1  1 
1555  CONTINUE 

if  end  tf  paqe,  ship  to  neit  page 

IF  (LINE  GE.  PAGE)  THEN 
RSPGE=P AGE-LINE 

“JMatT™ 

222  CONTINUE 

URITE(UNIT.ltll) 

HRITE<UNIT,mi) 

UR ITE ( UNIT , 1*02 ) 

LINE=3 

NLINE=1 

ENDIF 

1225  CONTINUE 

if  haoe  read  all  the  records  far  this  goers  then  disglao 
the  neit  goers  location 

IF  INLINE  EO  POS)  THEN 
HRIIE(UNIT.i) 

HR  I IE (UNIT , 1I23)FLAT ,FLONG,FRADI 
WR I TF  <  UNIT .  1 ) 

LINE=LINE*3 

CRAOI-FRADI 

CLAUFLAT 

CLONG=FLONG 

READ!  lA.FI1T=1022,IOSTAT*ISTAT.ENOMi23)POS, FLAT, FLONC.FRADI 
IF  (IST<T  N£  gi  THEN 
HRITE(1.720)ISTAT 
GO  TO  ?$? 

ENDIF 

IF  (LINE  GE.  PAGE)  GO  TO  1555 
GO  TO  1225 
ENDIF 

GO  TO  7li 
1123  P0S=?»? 

GO  TO  701 
ENDIF 

713  CONTINUE 

IF  (SECOND)  THEN 
RSPGE=P AGE-LINE 
DO  AM  IlM.RSPGEtB 
URITE(UNIT.l) 

AAA  CONTINUE 
LINE=3 
NLINE=1 
ENDIF 
C 

C  if  second  ootpot  is  desired  then  displas  its  headers 
C 

IF  (SECOND)  THEN 
IF  (SST  E8  l)  GO  TO  7IA 
SST-1 

URITEtUNIT , 1007) 

UR  I TE ( UNIT ,1(08) 

IF  ((BENT)  OR.  (REACT)  OR  (COSA) )  THEN 
HRITE(UNIT,2022) 

ELSE 

HRITE(UNIT.10I?) 

ENDIF 

70A  CONTINUE 
REHINDI22) 

REUIND(iA) 

READ(1A.FHM022)POS,FLAT,FLONC,FRADI 
CPOS  =  m 

READ( iA ,FHT=1I22)P0S,FLAT .FLONG ,FRADI 
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FTN4 

(FILES! 1,1) 

SUBROUTINE  SECDY ( OTHDAT .5PEC0N ) 

.  SEF-4I-II  vil  <841727. 1241  > 

IMPLICIT  NONE 
C 

c - 

C 

C  SAISAT  EVALUATION  FACILITY 
C 

C - 

C 

C  DATE  VERSION  DESCRIPTION  AUTHOR 

C 

C  B3/10/IS  II  -  SUZANNE  Y.  SL1NN 

C 

C - 

C 

C  DESCRIPTION: 

C  This  sabreatine  displays  the  secand  if  the  for  letstt  files. 

C  CALLING  SEQUENCE: 

C 

C  CALLED  FROM:  ALOCS 

C 

C  CALL  SECDY 

C 

C - 

c 

C - 

c 

C  DATA  DECLARATIONS 

E - 

c 


COMMON  /LOGG/  L0DAK3) ,  HIDATO),  STDAT ,  ENDAT, OUTLU(S), RANGE 
INTEGER  LODAT,  HIDAT.  OUTLU.  RANGE, TRY(ll) 

DOUBLE  PRECISION  STDAT.  ENDAT 

REAL  LOCLAT,  LWLNG,  RADIUS, LUTLA.LUTLG, BIAS 

[-0GLAT  -  latitade  af  specified  locatian 
LOCLNG  -  lanqitede  »f  specified  lacatian 
RADIUS  -  Mums  distance  between  specified  lacatian  end 
file  lecatiens 

COMMON  /LOCN/  LOCLAT.  LOCLNG.  RADIUS 

INTEGER  IBASE(S) ,  ILEVU3) .  INODE,  ISTAT(ll),  LIST 

BBS  «:  QKKIt:  IK:  U8& 

INTEGER  SBUF(&8>,  UUF<98),  N1UF<76),  FBUF(SI) 

**'  !l@:  AID:  Iffiff:  I®1:  HSi.'IKt. 

IDSAR,  IDTST,  SBUF,  LBUF,  NBUF,  FBUF 
DOUBLE  PRECISION  QTIHC,  SDT 
SDT  -  start  date 


LODAT  -  ascii  start  date  YYHMDD 
STDAT  -  law  date  in  secands  fran  1980 
ENDAT  -  high  date  in  secands  fran  1981 


OUTLU  -  astpat  deaice,  LU  ar  filenene 

KI  Brut1- 

INTEGER  SYS,  ISYS,  LOGLU 

•BUF  -  receiaing  baffer 

IPARH  -  retarn  baffer  far  RNPAR  call 

PBUF  -  retarn  baffer  fran  PARSE 

REAL  ONEDAY 

ss am-  “»•  “ 


LOGICAL  LUT.  NCC,  SAR,  TEST,  ALL 

till  ‘  J.1**  ;•  indicate  UJT  lacatian  detail  file  selected 

RE  "  indicate  HCC  licatim  detail  file  selected 

tcct  “  Hi!  1*  }n5*C4f®  SAJSW  incident  detail  file  selected 

TEST  -  tlfd  tj  indicate  FIELD  test  naster  file  selectedlected 

ALL  -  all  files  will  be  searched 


INTEGER  XEYS(8.8> ,  P ROM ( 8 ) ,  RX 
INTEGER  FIG,  AA,  lFBRK ,BGBUF(2IB) 

C 

C  FLG  -  f  laq  ti  indicate  if  /E.jsed 

C  AA  -  dims  paraneter  fir  IFBRX 

C 
C 

COHHON/SELCT / ALLOT . ALSAT .SAT  ,$X .CX.SPESAT ,PR1N .SECOND .THIRD . 

1  FOUR  TH.PST  .iST.  TSt  ,FSt  ,W>IT  .DIF ,  BEI>T  .RE&T  ,  COS*  .CBCli . 

1  CBC24 , ALLFR ,P(BH .START .EXIT , TAPE .SPECIF, SEVENT .PASS , 

i  IHAGE, CONTRY . IUSER , TYPE.ELTANC 

INTEGER  C0NTRY(3) .IUSER, TYPE (4) 

REAL  ELTANG 

LOGICAL  ALLOT, ALSAT, SAT, SX.CX, PR  IN, SECOND, THIRD, FOURTH 
LOGICAL  B£NT.REALT.COS4,CBCi2,CBC24, ALLFR, EXIT, TAPE, SPECIF 

LOGICAL  IMACE.OTHDAT 
REAL  DIF 
C 

C  ALLUT  -flaa  ti  indicate  if  all  licatiins  wanted 

C  ALSAT  -flaa  ti  indicate  if  all  satellites  wanted 

C  SAT  -flaa  ti  indicate  if  specific  satellites  wanted 

C  SX  -flaa  ti  indicate  if  all  SARSAT  satellites  wanted 

C  CX  -flaa  ti  indicate  if  all  COSPAS  satellites  wanted 

C  SPESAT-arrai  that  cintains  the  specific  satellites  desired 

EBUI VALENCE (BIAS ,LBUF( 38) ) 

E«IIVALENCE(TRY(i).HSGl(49>) 

C  KEYS  -  arras  csntaininq  cintents  if  sift  kess 

C  PRON  -  arras  if  salies  ti  retirn  fir  sift  less 

C  RI  -  acteal  salie  retirned 

C 

. . . 

c 

C  EXECUTAILE  CODE 

C 

cttutmstmtmitmsmttiimimiiiimtmituimiiimitmM 

c 

CALL  LGRUF(BGBUF.2II> 

ISYS  *  LOGLU(SYS) 

C 

C  initialiie  sariables 

III  CONTINUE 

c 

C  initialiie  Differ  with  blanks 
C 

11=1 

CAU.  FILBS(4IB, ihl.HSGi ,11) 

c 

C  cross  track  anqle  in  deqrees  (CTA) 


CAUL  FPNBS<LBUF(34), 1777448, HSCi, ID 
nmber  if  freqiencs  neassrenents  (NMFREB) 
It'IlM 

CALL  F0RN(1I,LBUF(42) ,NSG1 ,11 ,i) 

standard  desiatim  if  residials  in  Hi  (SDEV) 

11*1141 

CAa  FPNBS(LBUF(74) ,1777448, HSCI, ID 
trend  factir  if  residials  in  Hi  (TREND) 
11*1141 

CAU  FPNBS(LBUF(76),177744B,HSG1,ID 
aialits  factir  if  CBC  data  (sin  anas)  (DUAL) 


IF  416  DATA.  OUTPUT  THE  ELT  ANGLE  INSTEAD 

IF  ((BENT)  OR. (REACT)  OR  (C0S4))  THEN 
11*1141 

CALL  FPNBS(ELTAHG,177744B,HSC1,I1) 

ELSE 

Ii=Il4l 

£^L  FORNdl  ,L8UF(?8)  ,HSG1  ,Ii ,6) 

pribabilits  if  trie  silitim,  as  Z  (PROS) 
11*1141 

CALL  F0RH(ll,LBUF(48),HSGl,Ii,k> 


c 

C  ninber  if  ULS  iteratiins  OMULS) 

C 

11=11+1 

CAU.  F0RH(U,LBUF(43) ,HSG1,U,6) 

j 

C  tin*  if  clisest  appnich  in  hur*  frin  the  date  if  AOS  (TCA) 
C 

11=11+1 

CAU  FPHBS(LBUF(36),177744B,HSG1,I1) 

C 

C  tine  if  AOS  (QTIHE) 

C 

11=11+4 

CALL  FPNBS(LBUF(8),177744B.HSG1,I1> 

C 

C  date  if  LOS,  in  hoirs  fnn  date  if  AOS  (LOSTIH) 

C 

11=11+4 

CAU  FPNBSILBUF ( 1?) ,  177744B  .ttSGl  ,11) 

C 

C  ELT  freaienci  bias  .expressed  Hi  (BIAS) 

C 

ENCODE (20 , 1 23 ,T8 Y ) 81 AS 
123  F0RHAT(F7.1) 


Elt  id  is  eritten  ti  the  file  fnn  18UF<21)  ,LBUF(22)  ,LBUF(23)  ,LBUF(24) 


IF  41b  DATA,  CHANCE  THE  UT1D  CODE  OUTPUT 
IF  ((BENT)  .OR.  (REALT)  OR.  (COS4) )  THEN 
IF  COUNTRY  IS  CANADA.  OUTPUT  BEACON  NAME 


IF((CONTRY(l)  ED  2HCA)  AND  (SPECON  ED  1HY))THEN 
IF  (OTHDAT)  THEN 

NRITE(22, 1004)  (HSGK  ID.  11*1. 52)  ,CONTRY(l)  ,C0NTRY(2) , 
1  IUSER,TYPE(1).TYPE(2),TYPE(3>.TYPE(4> 

ELSE 

WRITEdl,  1114)  (HSGK  ID  ,11=1 ,52)  ,CONTRY(l)  ,C0NTRY(2) , 
1  IUSER,TiPE(l).TYPE(2),tYPE(i).TYPE(4) 

ENDIF 

ELSE 

IF  (OTHDAT)  THEN 
USE 

URITEllljliOSHNSClIIl)  jlld^S?)  ,CONTRY(l)  ,CONTRY(2) , 


END! 

ENDIF 
ELSE 

IF  (OTHDAT)  THEN 

MR  ITE(22, 1116)  (HSGK  ID  ,11=1 ,S2) .LBUFI21 ) ,LBUF(22) ,LBUF(23) , 
1  LBUF(24) 

USE 

URITE(11,1II6)(HSC1(ID ,11=1 ,52) ,LBUF(21) .LBUFI22) ,LBUF(23) . 
1  LKF(24) 

ENDIF 

ENDIF 

1104  F0RHAT(52A2.2A2,1X,I3,1X,4A2) 

1115  F0RHAT(52A2.2A2.1X,I3,3(1X,I8)) 

1116  F0RHAT(52A2,4(1X,I8) ) 


ooooooooonnnnononnnoooooononnnonnn 


IFIL£S<1,1> 

SUM0UT1NE  TERTI(OTHDAT) 

,  SEF-4I-II  VII  <841726.1914) 
IMPLICIT  NOME 


SMSAT  EVALUATION  FACILITY 


DATE 

83/11/ IS 


VERSION 

II 


DESCRIPTION 


AUTHOR 

SUZANNE  Y.  SLINN 


DESCRIPTION: 

This  sibrutine  displaes  the  third  if  the  fur  ntpit  files. 


CALLING  SEQUENCE. 
CALLED  FROM.  ALKS 
CALL  TERTI 


- 1 

- 1 

t 

DATA  DECLARATIONS  I 

t 


C 


C 

c 

c 

c 

c 

c 


c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

§ 

c 

c 


c 

c 

c 

c 

8 

c 

c 

c 


COMMON  /LOGO/  L0DAK3),  HI  DAT  ( 3 ) ,  STDAT.  ENDAT, 0UTLU<5>  .RANGE 
INTEGER  LODAT.  HI  DAT ,  OUTLU,  RANGE.TRY(ll) 

DOUBLE  PRECISION  STDAT,  ENDAT 

REAL  LUCLAT,  LOCLNG,  RADIUS, LUTLA.LUTLG, BIAS 


LOCLAT  -  latitide  if  specified  Iicitiin 
LOCLNG  -  linqitide  if  specified  Iicitiin 
RADIUS  -  naiiitm  distmee  batmen  specified  licatiin  ind 
file  lscitlins 


COMMON  /LOCH/  LOCLAT.  LOCLNG,  RADIUS 

INTEGER  IBASE(S),  ILEVLI3),  INODE,  ISTATHO).  LIST 
INTEGER  ITDTEI3),  ITTSTI3),  ITSAR(3>,  ITMCC(i),  ITSPDI3) 

INTEGER  IDLUTI3),  IDTSTI3),  IDSARI3) ,  IDMCCI3) 

INTEGER  SBUF<68),  LBUF<98),  NBUF<76),  FBUF(SI) 

COMMON  /BASE/  I BASE,  ILEVL.  IMODE,  ISTAT,  LIST.  ITDTE. 

ITTST,  ITSAR,  ITHCC,  ITSPD,  IDLUT,  IDHCC, 
IDSAR,  IDTST,  SBUF,  LBUF,  HBUF,  FBUF 

DOUBLE  PRECISION  QTIME,  SDT 

SDT  -  start  date 


LODAT  -  ascii  start  date  YYMHDD 
STDAT  -  lie  date  in  seemds  frm  1781 
ENDAT  -  hiph  date  in  seemds  frm  1981 

OUTLU  -  ntpit  deiice,  LU  ir  filenane 

INTEGER  RBUFMI),  IPARHtS) ,  PBUFI33) 

INTEGER  LU.  RET 
INTEGER  SYS.  ISYS,  LOCLU 


RBUF  -  receiiinq  biffer 

IPARH  -  retirn  biffer  fir  RMPAR  call 

PBUF  -  retirn  biffer  frm  PARSE 

REAL  ONEDAY 

INTEGER  DATCHI3),  LOOP.  0UH<7),  11 
INTEGER  UNIT 


LOGICAL  LUT,  MCC,  SAR,  TEST,  ALL 

LUT  -  flip  ti  indicate  LUT  locatim  detail  file  selected 

MCC  -  flap  ti  indicate  MCC  licatiin  detail  file  selected 

SAR  -  flip  ti  indicate  SARSTAT  incident  detail  file  selected 

TEST  -  flag  ti  indicate  FlE<D  test  (tester  file  selectedlected 

ALL  -all  files  iiill  be  searched 


mn nnnnnn 
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INJEKR  KETS<8.8>.  PR0H<8> ,  R« 

INTEGER  FLG,  AA,  IFBRK 

FLC  -  flaq  ta  indicate  if  /E  yen) 
BA  -  daimy  aaraneter  far  IFBRK 


iEALC|LTAWT4lf(3>  •Iu4e*'TX*e<4> 

MSIS!!!-  'SX  lCX  'p*  IH .SECOND .THIRD .FOURTH 

iwtIccd  Hcei?fftTTC2iJ,il51?iSB?24>AU-F*AEXITATWEas,,ECIF 

fiH  >S3T -TiT  •  FST  .«SG1  <6.>  ,P6s«  .stART 

LOGICAL  IMAGE .6THSAT 
REAL  DIF 

S-WI  ~f J®a  ta  indicate  if  all  lacatians  wanted 
ALSAT  -flaq  ta  indicate  if  all  satellites  wanted 

SAT  -flaq  ta  indicate  if  specific  satellites  wanted 
SX  -flaq  ta  indicate  if  all  SARSAT  satellites  wanted 

LX  -fl«  ta  indicate  if  all  COSPAS  satellites  wanted 

SPESAT-array  that  cantains  the  specific  satellites  desired 

EQUIVALENCE<LUTLA,LBUF(29)> 

EQUIVAIENCE(LUTLC,LBUF(30 )  > 

EQUIVALENCE(BIAS,LBUF<7I>> 

EQUIVALENCE (  TRY.ltSGi  (35) ) 

J|Yb  -  arraa  cantaininq  cantents  af  saft  keys 
PROM  -  array  af  aalaes  ta  retarn  far  saft  keys 
RK  -  actaal  aalae  retarned 

mtumnttuutuutunmmtnnnntnntuummmmntn 

EXECUTABLE  CODE 

cmisimtsauamttmmsitiimtmmmistiiiimtistiitimmt 


I STS  >  LOGLU(SYS) 

initialiie  aariables 

111  CONTINUE 
11*1 

CALL  FILBStADB.l&I.HSGl.Il) 
drift 


11=2 

CAU  FPNBS<LBUF(4D),1777A4B,HSG1,I1) 

C 

C  initial  estinate  af  CTA  in  deqrees  (CTAI) 
C 

11*1141 

CAU  FPNDStLBUFfW),  177744B.HSGl.il) 

C 

C  initial  estinate  af  TCA  in  secands  (TCAI) 

C 

11=1141 

CALL  FPMBS(LBUF(6B) , 177744B ,HSG1 ,11) 

C 

C  initial  Mtlnate  af  BIAS  In  Ht  (BIA8I) 

C 

ENCODE ( 21 » 1 23 , TRY ) BIAS 
123  F0RHAT<F7  i> 

C 

C  naiar  aiis  af  errar  elliqse  in  Kn.  (HAJAX) 
11*1141 

CALL  FPNBS(LBUF(SS),177743D,NSC1,I1) 

C 

£  ninar  ails  af  errar  ellipse  in  XN.  (NINAX) 
11*1141 

CALL  FPMBS(LBUF(S7)  ,177743B,HSG1,M) 

C 

C  aaeraqe  af  data  residaals  in  Hi  (AMEAN) 

C 

ii*H4S 

CALL  FPNDStLBUF  <72> , 177744B ,HSG1 , 11 ) 

C 

IF  (OTHDAT)  THEN 

HRITE(23,lli4HHSGl(U)  >U*1.SI) 

ELSE 

HRITE(12.1H4)(HSG1<I1)  .11*1  .SI) 

ENOIF 

1M4  F0RMAT(SIA2) 


nonnonnnno 


♦FILES12.2) 

SUBROUTINE  QUADY(OTHDAT) 

'h»ucit'nJF’4*"m 


SNR SAT  EVALUATION  FACILTIT 


C  DATE 

p 

VERSION 

KSCHtTIOH 

AUTHOR 

C  83/11/85 

•• 

— - 

SUZANNE  Y  SLINN 

C  DESCRIPTION 

This  sibraitine  displais  the  forth  «f  the  for  otgit  filet 

C  CALL  INC  SEQUENCE  - 
C 

C  CALLED  FROH  ALOCS 
CALL  OUADT 


DATA  DECLARATIONS 


)\ 


DOUBLE  PRECISION  SIBflT,  ENDAT 

REAL  LOCLAT,  LOaNC.  RADIUS, LUTLA.LUTLG 

LOCLAT  -  latitude  af  specified  licatim 
LOCLJ*  ’  * *noi t»de  if  specified  licatim 
RADIUS  -  Minn  distance  between  specified  licatim  and 
file  licatiins 

COHHON  /LOCN/  LOCLAT ,  LOaNC,  RADIUS 

I»1  IBSS:  MDIll:  MMirtUm 

INTECER  IDLUT(J) ,  IDTSTI3),  IDSARI3) ,  IDNCCI3) 

INTEGER  SBUFIiS),  LBUF19B) ,  HBUFI74),  FBUFISIl 

COMMON  /BASE/  I BASE ,  ILEVL,  IMODE,  ISTAT,  LIST,  1TDTE, 

JTTST,  ITSAR,  ITNCC,  ITSPD,  IDLUt,  IDNcd, 
IDSAR,  IDTST .  SBUF,  LBUF,  NBUf ,  FBUF 

DOUBLE  PRECISION  QTINE,  SDT 

SDT  -  start  date 


LODAT  -  ascii  start  date  YYNHOO 
STOAT  -  law  date  in  secinds  frm  1981 
ENDAT  -  hiph  date  in  secinds  frm  1981 

OUTLU  -  ntpit  device ,  LU  ir  filenane 

INTEGER  RBUF(AI) ,  IPARHIS),  PBUFI33) 

INTEGER  LU.  RET 
INTEGER  STS,  ISYS,  LOCLU 

RBUF  -  receiiine  biffer 

IPARH  -  retirn  biffer  fir  RHPAR  call 

P8UF  -  retirn  biffer  frm  PARSE 

REAL  ONE DAY 

INTECER  DATCHI3),  LOOP,  DUH<7>,  II 
INTEGER  UNIT 


LXICAL  LUT,  ACC.  SAR,  TEST.  ALL 

LUT  -  flap  ti  indicate  LUT  licatim  detail  file  selected 

NCC  -  flap  ti  indicate  ACC  licatim  detail  file  selected 

SAR  -  flan  tt  indicate  SARSTAT  incident  detail  file  selected 

TEST  -  flap  ti  indicate  FIELD  test  naster  file  telectedlected 

ALL  -  all  files  will  be  searched 
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INTEGER  KEYS<8,8),  PROMtS),  RK 
INTEGER  FIG,  4,  IFBRK 


FLG 

AA 


-  flia  ti  indicate  if  /E  used 

-  dsnny  parameter  for  IFBRK 


COHHON/SELCT/ALLUT, ALSAT .SAT ,SX  ,CX  .SPESAT ,  PRIM ,  SECOND ,  THIRD , 
l  FOURTH.PST .SST.TST, FST,UN1T, DIF, BENT .REAL T ,C0S4,CBCi2, 

1  CBC24,ALLFR,P0SN -START, EXIT .TAPE, SPECIF, SEVENT, PASS, 

1  IMAGE.  CONTRt.lUKR.TYPi.aTANC 

INTEGER  CONTRY(3) .  lilSCR  .TYPE(4l 
REM.  ELTANG 

LOGICAL  ALLUT, ALSAT, SAT ,SX,CX ,PR IN, SECOND .THIRD, FOURTH  , 

LOGICAL  BENT,  llEALT,d0S4,CBC12,CBC24,ALLFR, EXIT.  TAPE.  SPECIF 
INTEGER  spesAt<s>,1, PST, S8T,tSt,FST,H5C1<4|) ,POSN, START 
INTEGER  SEVENT.PASSI4) 

LOGICAL  INAGE.OTHDAT 
REAL  DIF 

ALLUT  -flag  to  indicate  if  all  locations  wanted 

ALSAT  -flag  to  indicate  if  all  satellites  wanted 

SAT  -flag  to  indicate  if  specific  satellites  wanted 

SX  -flag  to  indicate  if  all  SARSAT  satellites  wanted 

CX  -flag  to  indicate  if  all  COSPAS  satellites  wanted 

SPESAT-array  that  contains  the  specific  satellites  desired 

EQUIVALENCE1LUTLA ,LBUF(2B) ) 

EflUIVALENCE(LUTLG,LBUF(3t)> 

KEYS  -  array  containing  contents  of  soft  keys 
PROM  -  array  of  soloes  to  retern  for  soft  keys 
RX  -  actsal  oalee  retsrned 


ctiss«sistsststsmi>s«msssisstss»mttmm»mmum<mitt 

C  EXECUTABLE  CODE 


^ssusiimmsststtmmiistssmtsusmmsmsusiuttmistmti 

ISTS  *  LOGLU(SYS) 


initialize  oariables 

ill  CONTINUE 
11*1 

CALL  FILBSI4II. 16l.MSGl.il) 


standard  deoiation  of  CTA  in  degrees  (VARCTA) 

CALL  FPNBS(LBUF(78) .1777448, MSC1 ,11 ) 
standard  deoiation  of  TCA  in  seconds  (VARTCA) 
11*11+1 

CALL  FPNBS(L8UF(8I). 1777448. NSCi, ID 
standard  deoiation  of  BIAS  in  Ht  (VARBIA) 

CALL*FPNBS(LBUF (82), 1777448, HSGi, ID 
standard  divittiin  if  DRIFT  in  Hi/ain  (VARDRI) 
11*11*1 

CALL  FPNBS(LBUF<04) ,1777448, HSG1 ,11) 
carrtlatian  if  CTA  nith  TCA  (CORCT) 

CALL^NDSILBUFISA),  1777448,  HSC1.  ID 
carrtlatian  aF  CTA  nith  BIAS  (CORCB) 

cJnL1FPN8S(L8UF(88M777448,MSGI  ,  ID 
carrtlatian  aF  CTA  nith  DRIFT  (CORCD) 

CALLlFPN8S(L*UF(?l), 1777448, MSCl, ID 
carrtlatian  sf  TCA  nith  BIAS  (CQRTB) 

•  CALL*FPMBS(LKJF(42)  ,1777448, HSG1 ,11) 
carrtlatian  *F  TCA  nith  DRIFT  (CORTD) 

CALLIFPNBS(LDUF(»4) , 1777448 ,MSGi ,11) 
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FTN4 

C 

C 


SUBROUTINE  SESET  (FTNLU. RET) 
l  ,  SEE  -MO-BO  VOO  (831011  1443) 

IMPLICIT  NONE 


SARSAT  EVALUATION  FACILITY 


C 

c 

C  DATE 
C 

C  83/11/1 t 

L 

f 


VERSION 


00 


DESCRIPTION 


C 

r  riccro  T°TrfM,i 

C 


C  This  ftflKRVfine  is  tilled  fro*  LOCAT  Tt  nreepfs 

C  the  terminal  far  »ne  resowses  fer  stert  date,  end  date. 

C  and  output  arvice 

C 

c 

c 

C  CALLING  SEOUFNCE 


C  CALL  SE$CT(FTNlU.8tT> 

C 

C  MOMENTS 

C 

C 

C  FTNLU  -  FTN  »mt  nutter  fur  totput  file. 

C 

C  0ET  -  Retern  cede,  -1  ->  errur 

C  %  -v  tin. 

C 

C - 

c 

c 

C  DATA  DECLARATION 

C 

C . . . 

c 

c 

c 

CON  HON  /L0CC>'  LODATl  3> ,  HI  DAT  ( 3  > ,  STOAT .  ENDAT.  OUTLlHS), 
RANGE 
C 

lNTFCr?  FTNLU. RCT 

C  FTNLU  -  Internal  FTN4X  LU 

C  RET  -  Return  cede 

TNTFGFR  IOOAT.  MI  DAT.  flUTLU.  RANGE 
r-OIIElF  PRrCI3TON  STOAT.  ENDAT,  CTIHf 
WHH*:  f  PRICIMim  &rRC 


f 


c 

c 

r 

C 


i  (If AT  -  ^ i  «*ar»  n i*»  v'NeDD 
hi DAT  -  ascii  end  date  TYHNCD 
3«?lJ  -  e u tpu t  device.  LU  #r  filename 

BAairr  -  ««  .1  Ki<«  t*  Ko  rMiiitwail 

PARC  -do  rtnqe 


ccccccccccccccccccccccccccccccccccccccccrccccccccccccrcccccccccccccccc 

c 


62 


I NTEGL  *  01 V . P TPLU .  IPAPR'S ) .  I  Wf  <  3° ) 

1NTCG£9  STS.  ISYS,  lOUU 
C 

C  OCV  .  IpruiMl  IU 
C  PTIIU  -  Print#'  Ul  Set  ft  6 
C  IPAln  -  Buffer  fur  BMP  AS 
C  IHJF  *  Incut  buffer  fur  ternmul  incut 
C 

UTECEI  LUER* 

C 

C  UCIt  -  Errur  return  fur  uutput  file 
C 

IITECE*  DAKU2>,DBUF<3> 

C 

C  BATS  -  But*  uectur  fur  dutt  in  euch  euntb 

C  DfUF  -  Buffer  te  uturt  current  Cute.  YTPWDO .  nenmc 

C 

INTEGER  lDATE<3).MDAT£U) 

C 

C  LDATF  •  Tenctruru  buffer  fur  low  date 

C  HDAT?  -  Tenpururu  buffer  for  hiqn  dute 

C 

INTEGER  IET 
C 

C  IET  -  l«t«rn  cut  f«r  LOSET 
C 

INTECER  RSUF<33> 

C 

C  RDUF  -  (mil  btffer  (or  PARSE 
C 

INTEGER  NO, YE .SLSHE .END 
C 

C  NO  -  3HNO 

r  if  .  jmye 

C  SLSHE  -  2H'E 

C  END  -  L'HEN 

C 

INTEGER  I.  U.  KIR 
C 

C  I  II  -  ioop  control  oartoolro 

C 

C 

DATA  NO . YE , SI  SHE  END  ’JHNO.JHYE .27S0SD.2HEN/ 

DATA  DAYS/31. 28, 31.31. 31. Jt. 31. 31. 31. 31. 3R, 31/ 

C 

caacccccccccccccccctcnxccccccccccccccccccncccccccccccccccccccccccc 

c 

C  INITIALIZATION' 1 
C 

ccccccccccccccacccccaccccccccccccccccccccccttacccKcccccccccccccccc 

c 

ISYS  «  LOCUTISYS) 

DEV-1 

ret-d 

PTILO-A 


C 


C 

C  C»t  cirrwt  R»t«  io«  Ur*  Trot*  ih»  min 
C  (nonwicl 
C 

CAU  EXECIH.RPUF .DPUFTtn 
DDUF'Jl.n 

CALL  DATETDRII-MI  DBWE(2I.RIIIE(SI) 
DEUFai-DDUFlII-lPO# 

DHicai-RWFisi 
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a 


c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  I  >u  Note 

C  Dofoolt*  to  corront  YYMHDD 

c 

tl  CONTINUE 

MlITE<«CV.9IM) 

»EAD'l.»M2MlDATEtI>.I=l  .3!.(HMTE(I).I*1 ,3) 

If  ILDATElli  u  91  LDATE!l>=DHJf<lt 
ir  'LPATE(l)  IT  89  09  LPATE'I'  CT  991  CO  TO  849 
C 

IT  (LOATEO  EQ  I)  lMTC(2)*DtiUF<2' 

IF  <lDATE<2>  LT  1  0#  LDATEI2)  CT  12)  CO  TO  851 

r 

IF  (iDATEUi  EO  0)  LOATE<3)=D8tr<3) 

OArSt  21=29 

U  ft (LDATEtl)/4)84)  EO  ItATEU!)  0MS<2'O» 

IF  (LDATC13)  IT  t  08  L0A!E<3)  CT  0AYS(LDATEI2> ) >  CO  TO  849 

C 

C  Ntv  itt  ap  to  contort  Potoo  to  opproorioto 
C  fornoto 
C 

11  *  1 

DO  42  1  =  1.3 

42  CALL  NUNBS(LMTE(I).2.lOMT,Il) 

II  •  1 

STDAT  o  QTIMCtLODAT.il, 3. I  I) 

caxcccaccccccccccaccccccccccccccccccccccccccccticccccccccrcccccctcc 

c 

C  Hiph  Po to 

C  Dofoolts  to  cor  rout  TYIW* 

C 

si  continue 

IF  (HPATE(l)  EQ  I)  HDATE!  1  >■»**<  U 
IF  (HDATE(l)  LT  89  08  HOATE(l)  CT  99)  CO  TO  889 
C 

IF  (HPATEI2)  EQ  9)  HDATE(2)=DBUF(2) 

If  (HDATEI2)  LI  1  09  HPAIEI2)  CT  12)  CO  TO  8»l 

C 

IF  (HDATE‘,3)  EQ  0)  HDATE < 3 1 *D8(JF ! 3 ) 

DAYS(2)«28 

IF  MiMDATEd  1/4)14)  EQ  HDATE ( 1 ) )  DAYS(2>=29 
:r  (HDATEI31  LT  1  OB  HDATE(3)  CT  DAYS(H0ATE(2) ) I  CO  TO  815 

89  rOMTINOC 

c 

Won  »p  ts  cingprt  d^res  and  Tines  fa  jporcoriate 
C  ftTNlt 

c 

It  •  1 

nn  4T  r  =  i .1 

*7  rfti ;  MMMpcfwnflrpf ti  ?  MJIWlT.M' 

I*.  *  l 

•■pr.r  =  oTirf'Min*.T .!*  3,}  o) 

c 

Z  Cnetk  Tti«l  high  d«t*  i*»  De»#nd  U«  d«ie 
r 

IF  f ENOAT  LT  ?TF*r»  r.G  TC  R7I 
p*er.  -  t?4  P  ♦  l 

BANCf  =  DfRC 

C 

C 

c 

cccccccccccccccccccccccccrccccccccccccccccccccccccccccccccccccrccccccc 

cccccccccccccccccccccrxccccccccccccccccccccccccccccccccccccccccccccccc 

c 

c 

111  CONTINUE 

c 

C  liginr  itfoit  device 

c 

IIS  CONTINUE 

ttfirtdcv.fiin 
tC4t(Kv.9ii?i  tour 

CALL  MNSEi  IMF.  79, IMF) 

IF  (lour (2)  EO  SLSHC  01  IMF (2)  EQ  ENO)  CO  TQ  OIL 
l«t 

CALL  NNNMfflUF  ,  IMF  ,78 . 1) 
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IF  (RNJFU)  CQ  I)  98UF(i)=KV 
DO  119  1-1,3 
119  0URUU>*R&UF(I) 

0URU(4>=RBUF(5> 

(mu<5>=RBUF<6' 

I?  IT  *»7P)  then 

CALL  C*UHOtRI»jFilJ,GUU.lMJ>> 

OUTllN 1 >=2H 
0tiTt_iM2«*2rt 
ENBIF 
C 

cccccrccccccccccccccccccccccccccccrcccccncccrccccccccccccccccccrcccccc 

c 

c 

1«0  CONTINUE 

OPfN<UNIT=FTNlU.riU=0URU  .ER9=890 .  (OSTATsLUFRR  > 

CO  TO  egg 

c 


C  ERRORS! 

C 

r  n*tni*t  fil*  «rr*«c  »rr»c 

C 

*1"  C0»»T!«RIF 

8RTTC<DEV ,9003)  OUTLU.LUERR 
PS)  FF’ f*l 
(.0  10  909 
C 

C  H\qh  di»#  d*f  mc*r r#ct 
C 

815  CONTINUE 

Miutsiv.iiii) 

CO  TO  19 

c 

C  Lit*  d*t#  f9*r  mc»rr»ct 
C 

849  CONTINUE 

WfJTET REV  ,9098) 

CO  TO  II 
C 

C  Lm  dprt  mctrrtct 
C 


850  CONTINUE 

i#lTE<0EY,90l9> 
CO  TO  19 


c 

C  Lfe*  d.»'«  d*?  incorrpc’ 

C 

869  CONTI  me 

MITE<0EV.9019> 

GO  TO  19 
C 
c 

C  Hiatt  dJTP  preccdts  law  d«t* 

C 

B79  CONTINUE 

WRITF(P€V,9911) 

cn  ro  to 


c 


Wtrth  d-t »*  »M*r  mr*rr#r» 

889  CONTINUE 

WITE(XU,9O08) 
rn  rn 


C 

C  Mioh  wntn  iftr*rrpct 
C 

899  CONTINUE 

*9iTE'.DEV,?099> 

a )  ro  to 
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c 

ccccccrccccccccccccccccccccccccccccccccccccccccccccccccccrcccrcccccccc 

c 

C  DIT" 

C 

911  CONTINUE 
RETURN 
C 

cctcctmcccacccccccccccccccccaxcaccrcccccccccccccccccccccccccccccc 

c 

C  FORNATS* 

c 

fill  FORNATl  'Enf»r  d4»#  »t*rt  «nd  »nd  *f  *«rcK 

t  *1*  YYfWOI  YYHNDD') 

fill  FORNATCS##ciff  rt trmil  Mtp«t  dMtct  UJ  _•) 

90S?  FORMAT (39A2) 

9M3  F08HAT(-t  ERROR  t  FU#  *,342.'  \06.*  -.Ot.’  jccms  *cr*r  • 

C  .16. •  •) 

9104  FORMATCt  PRIOR  I  Anwr  YES  or  HO  *> 

9016  FORMAT'. *t  ERROR  I  DxsiVrf  ceiled  iftc#rrectlwl »•) 

Q0C7  FCRrAff*  fn?fr  djte  fir  stod  if  se^rc*  •) 

9000  FORNAM**  ERROR  «  Y#ar  incorrect  •> 
fill  FORMAT ( 'I  ERROR  I  Htnfh  iftcirr«t  *) 

9010  FORMAT ( *t  ERROR  t  Do  incorrect  *1 
fill  FORMAT ( *l  ERROR  i  Miart  d*t»  t>r*c*d*s  liw 
901?  FORMAT(3I2.1X.3I2) 

END 
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UThu  write*  the  ottput  file*  ®nto  tht  Magnetic  Up* 

u 

SV.t.,IH 
ST , 1C  B 
IF.:C.£8./E,S 
ST.25.P 

,3 

ST , 38 , B 

it  eu.tli./t.i 

ST  4G  P 

IF  .SC  £Q./e,l 

ST ,  56 .  B 

CA.l 

CA.2 

CA,3 

CA.4 

CA  5 


ITV  V 


67 


ttttttttttttittttttttttttttttiitttttttttttttttttttttttmttittttttt: 

it 

It  PROCEDURE  ;L0CAT 

it 
It 
I* 
it 
it 
it 
it 
it 


15  SEP,  19BZ 
PROGRAHNER  SUZANNE  Y.  SUNN 


VERSION 


II 


<840514  104?) 


tniiummmmimtimmmmtmmtmmmmimmui 

it 

DESCRIPTION 


Load  seouence  for  10CAT 


it 
it 
II 
it 

iitutniitmuittnmiiiiitttnttiitimntititiiiiniimiiitii 

it 

EC 

SI.?’) 

OP. LB 

RE.XLOCAT 

RE.ZLOCBL 

IIRE.ZALOCS 

RE.ZOUTPUT 

Rf  .Z0UIP2 

•IRE .ZPRINARY 

♦IRE.ZSECUND 

IIRE.ZTHIRD 

IIRE.ZFOIIRTH 

RE.XFRFQUENCY 

RE.ZDUTDAT 

RE.ZSFNCC 

RE.ZSESAR 

RE.ZSETST 

RE.ZREILL 

RE.ZSESE1 

RE.ZDSTNC 

RE.ZCLONS 

SE 

SE.ZDOLIB 

SE.ZDBASE 

SE.ZLTSBJ 

SFA.ZSEFLB 

SFA.ZBUUB 

/E 

niniitmuiitnniiiiinitiiinmunniiitimitiiiiiiiimiii 

it 

II  PROCEDURE  .ALOCS 

II 
it 
ll 
It 
it 
II 
it 
It 


14  NAY,  19R4 
PROC.RAMHFR  SUZANNE  Y  SUNN 


VERSION 


10 


<840515  1348) 


ttttttttttttttttttittttttttiitttttittiisutttittittitiittttttttittt 

II  DESCRIPTION 


I  Old  seauonce  for  ALOCS 


itmttittttuttttitttttttttttittittmttmtttttmtttttttimmt 

it 

EC 

SZ  .09 
OP,  LB 

RE. ZLOCBL 

RF. ZALOCS 
RE.XUUIP2 
RE.ZPRINARY 
RE.ZSECOND 
RE.ZTHIRD 
RE.ZFOURTH 
IRE.ZTREQUENCY 
IRE .ZOUTDAT 
RE.ZSFNCC 
RE.ZSESAR 
RE.ZSETST 

RE. ZREILL 

RF. ZSFSE1 

RE.  ZDS  INC 

RF. ZCI  ONS 
SE 

SE.ZDOLIB 

5E.ZDBASE 

SE.ZLTSBS 

SEA.ZSETLB 

SEA.ZBIILIB 


»  *  •  “  -  • ■  L  •  .  •  .  •  k-  - 


a? 


■  >  v 


o.'U.'Li.W 


j.-.t.liLVU-  n-'V  «-T  — '  J-V*--.  *-*■  P-’La.IJi.WI  .j  *- 
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DCO  62777  I 
DDI  63)51  I 
. IOCN  63351  i 
FfCN  63361  l 
POSNT  63611  I 
FI01  64152  I 
. RTOI  64236  I 
DNP  64351  i 
DDE  64517  I 
DIM  64531  I 
FCH  64537  l 
DCOS  64554 
OSIN  64611  l 
ENTIX  65027  I 
XPOLT  65215  I 
-  AS  IN  65263  i 
.  DNG  65367  i 
DADS  65377  I 
DIS  65507  i 
OVRD  65537 
I DPP  65540  ( 
R/MI  67144  I 
S1IPEM  67313  i 
RUSUB  67460 
RUNDO  70032 
VSC8A  70162  : 
SPARS  71230  : 
SCVT3  704S1 
LURO  70537  ! 
NAM.  71152: 
P  PAS  71247 
LUTRU  71276  : 
SALRM  714)5  : 
ONNR  71523  : 
LIHEM  71571  : 
PNAME  71612  ' 
OPM7  71663  : 
ERO  E  71717  : 
FHIN  71710 
PAU  E  72170  : 
SE .IDOL IB 
DOFND  72171  ' 
DQGET  72320 
DOCIS  72534 
DSBLK  72615 
DONOV  73615  : 
SE.ZDBASE 
SE.XLTSB3 
DUMA  73655  ' 
SEA  .ZSEFLB 
OTIME  73745 
PTIHE  74122 
DTIME  74321 
DATE  74623 
FORM  74746 
NUNBR  75266 
SKIP  75441 
GETCH  75476 
PUTCH  75602 
FPHBS  75702 
SCHAR  76301 
FUNKY  76366 
SEA.ZBUUB 
NOVBS  76753 
NUMBS  77003 
FILBS  77175 
/E 


24798-1X137 

24998-1X040 

24998-1X315 

24998-1X316 

92067-16125 

24998-1X322 

24998-1X063 

24998-1X045 

24998-1X039 

24998-1X042 

24998-1X182 

24998-1X094 

24998-1X144 

24998-1X189 

24998-1X168 

24998-1X373 

24998-1X046 

24998-1X036 

24998-1X044 

92167-16125 

92067-16185 

92067-16125 

92067-16125 

92067-16125 

92067-16125 

92067-16261 

92067-1X282 

92067-1X287 

92067-1X270 

92)67-16125 

92067-16125 

92)67-1X308 

92067-1X271 

92067-1X324 

92067-1X477 

92068-1X035 

24998-1X325 

24998-1X249 

24998-1X344 

24998-1X254 

SEF-36-03 

SEF-36-04 

SEF-36-10 

SEF-36-11 

SEF-36-12 


REV. 2001 
REV. 2001 
REV  2101 
REV  2140 
REV  1903 
REV  2140 
REV  2013 
REV. 2001 
REV  2001 
REV  2001 
REV  2001 
REV  2001 
REV  2001 
REV  2001 
REV. 2001 
REV. 2101 
REV  2001 
REV  2001 
REV  2)01 
REV  1903 
REV  2026 
REV  2101 
REV  1903 
REV  2101 
REV  2101 
REV  1903 
REV  2)13 
REV  2013 
REV  2013 
REV  1903 
REV. 1903 
REV. 2013 
REV  2013 
REV  2013 
REV  2013 
REV  2101 
REV  2101 
REV  2001 
REV  2140 
REV  20)1 


790417 

781021 

800731 

80)813  N 

790316 

910730 

791230 

780818 

780818 

780818 

750701 

7S0701 

750701 


(830329  0951 > 
<830329  0951) 
<830329  09S1) 
<830329.0951) 
<830329.0951) 


SEF-25-0*  VOO  (830727.1002) 

SEF-22-00  VO)  <83)221  1504) 

SEF-XX-00  VOO  <830224  0922) 

SEF-XX-00  VOO  <830224  0922) 

SEF-XX-00  VO)  <830224  0922) 

Firnat  integer  ninbers  VOl  <840404  0945) 

Decide  integer  ntinhers  V)1  <840404.0945) 

Skin  i*er  a  character  String  VO)  <840404.0945) 
Get  a  character  frw  a  string  VO  1  <8404)4  0945) 

Pet  a  character  inti  a  string  V01  <840404.0945) 

SEF-XX-00  VOO  (830602.1010) 

SEF-51-16  VOO  <83)602.1010) 

SEF-51-17  VO)  (830602.1010) 

VOl  08-JAN-80  08190-07 
V01  08- JAN-80  08190-09 
VOl  08-JAN-80  08190-15 


RTOR  77225  77317  24998-1X064  REV. 2)26  800509 
. ITOI  77320  77436  24998-1X055  REV  2013  791017 
AlNT  77437  77537  24998-1X134  REV  2001  750701 
MOD  77540  77567  24998-1X1)7  REV. 2001  751101 


29  PAGES  RELOCATED 

lWlJ* 


29  PAGES  REQ' 


fcj&e0 5  E 

IW.,  17  SEPT. 


NO  PAGES  NSEC 


/LOADR i SEND 


•  »  *•*.  ^  BL  ,  ■_* 


70 


LOADS , ;ALOCS 
SZ,2? 

Of. IB 

RE.ZLOCBL 

SEICT  10143  10121 

BASE  10122  10644 

LOOM  1064S  106S2 

LOGO  106S3  10674 

SE,  TALKS 

AlOCS  10675  221SS 

BITSG  221S6  22275 

RE.Z0UTP2 

0llfP2  22276  24026 

RE.ZPRIMARY 

PRIMS  24027  26554 

RE.ZSECOND 

SEtDY  26555  30332 

RE.ZTHIRO 

TERTI  30333  31150 

RE.ZFOURTH 

OUADY  31151  32016 

♦RE.ZFREOUENCY 

IRE.ZOUTDAT 

RE.ZSEMCC 

SENCC  32017  33136 

RE.ZSESAR 

SESAR  33137  33767 
RE.ZSETST 

SETS!  33770  34S05 
RE.ZRETLL 

RETLL  34506  36020 
RE.ZSESEl 

SESET  36021  37577 
RE.ZDSTNC 

DSTNC  37600  40001 
RE.ZCLOMS 

CLONS  40002  40560 
SE 


SEF-40-00  VOO  <840725.14261 
SEF-40-00  VOO  (840725.1427) 
SEF-40-00  VOO  <840727.1240 
SEF-40-00  VOO  <840726.0904) 
SEF-40-00  VOO  <840726.0905) 

SEF-40-00  VOO  <830908  1400) 
SEF-40-00  VOO  <830908.1359) 
SEF-40-00  VOO  <830908.1401) 
SEF-40-00  VOO  <830526.1756) 
SEF  -040-00  VOO  <840514.0857) 
SEF-30-00  VOO  <830228  1642) 
<830705.1728) 


/LOAD# i tENO 


Security  Classification 


DOCUMENT  CONTROL  DATA  -  R  &  0 

(Security  classification  of  title.  body  of  abstract  ami  indexing  annotation  must  tw  entered  when  the  overall  document  is  classified) 


1  ORIGINATING  ACTIVITY 

Defence  Research  Establishment  Ottawa 

Department  of  National  Defence 

Ottawa,  Ontario,  Canada  K1A  0Z4 

2a.  DOCUMENT  SECURITY  Cl  ASSIF ICA  TION 

UNCLASSIFIED 

2b  GROUP 

3.  DOCUMENT  TITLE 

LOCAT  -  A  DATA  RETRIEVAL  PROGRAM 

4  DESCRIPTIVE  NOTES  (Type  of  report  and  inclusive  dates) 

TECHNICAL  NOTE 

5.  AUTHOH(S)  (Last  name,  first  name,  middle  initial) 

SLINN,  Suzanne  Y. 

6.  DOCUMENT  DATE 

DECEMBER  1984 

7a.  TOTAL  NO  OF  PAGES  7b  NO  OF  REFS 

71 

8a.  PROJECT  OR  GRANT  NO 

8b  CONTRACT  NO 

9a  ORIGINATOR'S  DOCUMENT  NUMBER(S) 

DREO  TECHNICAL  NOTE  NO.  84-30 

9b.  OTHER  DOCUMENT  NO  (S)  (Any  othei  numbeis  that  may  he 
assigned  this  document) 

10.  DISTRIBUTION  STATEMENT 

UNLIMITED  DISTRIBUTION 

It  SUPPLEMENTARY  NOTES 

12.  SPONSORING  ACTIVITY 

13  ABSTH ACT 


The  computer  program,  LOCAT,  a  data  retrieval  package  for  the  SARSAT 
Evaluation  Facility  database,  is  described  for  use  on  an  HP-1000  computer. 
The  program  provides  the  user  with  flexibility  over  what  data  is  to  be 
retrieved  from  the  database.  The  following  input  options  are  available: 

-  satellite(s) 

-  frequency (s) 

-  location  and  radius 

-  date  range 

The  data  retrieved  is  presented  in  the  form  of  four  outputs,  each  of  which 
provides  different  information. 

LOCAT  is  documented  in  terms  of  a  brief  description  of  the  package,  its 
capabilities,  a  guide  on  how  to  use  it,  and  how  to  compile  and  load  it.  The 
source  code  for  the  routines  written  is  provided  in  the  Appendices. 


74 


UNCLASSIFIED 

_  Security  Classification 

KEY  WOROS 


LUT 

SEF 

MCC 

DATABASE 

FORTRAN 

HP- 1 000  COMPUTER 

ELT 

EPIRB 


INSTRUCTIONS 


l  ORIGINATING  ACTIVITY  Enter  the  name  anti  address  ol  ihe 
organization  issuing  the  document. 

2a.  DOCUMENT  SECURITY  CLASSIFICATION  Enter  the  overall 
security  classification  of  the  document  including  special  warning 
terms  whenever  applicable. 

2b.  GROUP  Enter  security  reclassification  group  number.  The  three 
groups  are  defined  in  Appendix  'M'of  the  DRB  Security  Regulations. 

J.  DOCUMENT  TITLE  Enter  the  complete  document  title  in  all 
upital  letters.  Titles  in  all  cases  should  tie  unclassified.  11  a 
sufficiently  descriptive  title  cannot  fie  selected  without  classdi 
canon,  show  title  classification  with  the  usual  one  capital  letter 
abbreviation  in  parentheses  immediately  following  the  title 

4  DESCRIPTIVE  NOTES  Enter  the  category  of  document,  eg. 
technical  report,  technical  note  or  technical  letter.  It  appiopn 
ate,  enter  the  type  of  document,  eg.  interim,  progress, 
summjry,  annual  or  final  Give  the  inclusive  dates  when  a 
specific  reporting  period  is  coveied 

5.  AUTHORfS):  Enter  the  name(s)  of  author  Is)  as  shown  on  or 
m  the  document.  Enter  last  name,  first  name,  middle  initial. 

If  military,  show  rank.  The  name  of  the  principal  author  is  an 
absolute  minimum  requirement 

6.  DOCUMENT  DATE  Enter  the  date  (month,  year)  of 
Establishment  approval  for  publication  of  the  document. 

7a.  TOTAL  NUMBER  OF  PAGES  The  total  page  count  should 
follow  normal  pagination  procedures,  re.  enter  the  number 
of  pages  containing  information 

7b.  NUMBER  OF  REFERENCES  Enter  the  total  number  of 
references  cued  m  ihe  document 

8a  PROJECT  OR  GRANT  NUMBEH  If  appropriate,  enter  the 
applicable  »eseatch  and  development  project  or  grant  n  imber 
under  which  the  document  was  written 

8b.  CONTRACT  NUMBER  If  appropriate,  enter  the  applicable 
number  under  which  the  document  was  written 

9a.  ORIGINATOR  S  DOCUMENT  NUMBER(S)  Enter  the 
official  document  number  by  which  the  document  will  lie 
idenfitiwl  and  controlled  by  the  ongmalmg  activity  This 
number  must  be  unique  to  this  document 


9ti  OTHER  DOCUMENT  NUMBER(S)  II  the  document  has  linen 
assigned  any  other  document  numbers  (either  by  the  originator 
or  by  the  sponsor),  also  enter  this  numbet(s) 

10.  DISTRIBUTION  STATEMENT  Enter  any  limitations  on 
further  dissemination  of  the  document,  other  than  those  imposed 
by  security  classification,  using  standard  statements  such  as 

M)  "Qualified  requesters  may  obtain  copies  of  this 

document  from  their  defence  documentation  Leiifei 

(2)  "Announcement  mil  dissemination  ol  this  »foi  ument 
is  not  .luthon.ed  without  prior  approval  Irorn 
originating  activity 

11.  SUPPLE  ME  N  T  AR  Y  NOTES  Use  toi  additional  expl.inainr  y 
notes. 

12.  SPONSORING  ACTIVITY  Enter  the  name  ol  the  d-’par  (mental 
project  office  or  laboratory  sponsoring  the  leseaich  ..  if 
development.  Include  address. 

13.  ABSTRACT  Enter  an  abstract  giving  a  brief  and  factual 

summary  of  the  document,  even  though  it  may  also  appear 
elsewhere  in  the  body  of  the  document  itself  l  ^-  ihly 
desirable  that  the  abstract  of  classifier!  docume  i  !  ■  .r.Oassi 
fied.  Each  paragraph  of  the  abstract  shall  enr  wh  an 
indication  of  the  security  classification  ol  the  n  m  n 

in  the  paragraph  (unless  the  document  itself  is  un  »ssi ■  d) 
represented  as  ITS),  (S).  <C).  (R),  or  1U) 

The  length  of  the  abstract  should  tie  limited  to  20  single-spaced 
standard  typewritten  lines,  7*  i  inches  long 

14  KEY  WORDS  Key  words  .lie  technically  meanmqtul  terms  or 
short  jihrases  that  characterize  a  document  and  could  be  helpful 
m  cataloging  the  document  Ko*  words  should  tie  selected  so 
that  no  security  classification  is  required  Identifiers,  such  as 
equipment  mode!  designation,  trade  name,  military  project  code 
name,  geographic  location,  may  lie  used  as  key  words  but  will 
fie  followed  by  an  indication  of  technical  context. 


FILMED 

8-85 

DTIC 


